home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / Misc.sea / Misc / sort-mail.lisp < prev    next >
MacBinary  |  1992-03-28  |  36.0 KB  |  [TEXT/CCL2]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sat Mar 28 20:42:38 1992, modified Sat Mar 28 20:42:38 1992, creator Common Lisp 2, type ASCII, 36101 bytes "sort-mail.lisp" , at 0x8d85 487 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[CCL2]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 73 6f 72 74 2d 6d | 61 69 6c 2e 6c 69 73 70 |..sort-m|ail.lisp|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 43 43 4c | 32 01 00 00 00 00 00 00 |.TEXTCCL|2.......|
|00000050| 00 00 00 00 00 8d 05 00 | 00 01 e7 a5 fa d1 0e a5 |........|........|
|00000060| fa d1 0e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 f3 3a 00 00 |........|.....:..|
|00000080| 3b 3b 3b 20 53 6f 6d 65 | 20 54 65 63 68 4d 61 69 |;;; Some| TechMai|
|00000090| 6c 20 62 6f 78 20 68 61 | 63 6b 73 0d 3b 3b 3b 20 |l box ha|cks.;;; |
|000000a0| 28 54 65 63 68 4d 61 69 | 6c 20 69 73 20 61 6e 20 |(TechMai|l is an |
|000000b0| 65 6d 61 69 6c 20 61 70 | 70 6c 69 63 61 74 69 6f |email ap|plicatio|
|000000c0| 6e 20 77 68 69 63 68 20 | 6b 65 65 70 73 20 66 69 |n which |keeps fi|
|000000d0| 6c 65 73 20 69 6e 20 22 | 62 61 62 79 6c 22 20 66 |les in "|babyl" f|
|000000e0| 6f 72 6d 61 74 2c 0d 3b | 3b 3b 20 20 73 69 6d 69 |ormat,.;|;;  simi|
|000000f0| 6c 61 72 20 74 6f 20 74 | 68 61 74 20 75 73 65 64 |lar to t|hat used|
|00000100| 20 62 79 20 47 6e 75 45 | 6d 61 63 73 20 52 4d 41 | by GnuE|macs RMA|
|00000110| 49 4c 29 0d 0d 3b 3b 3b | 20 57 6f 72 6b 73 20 69 |IL)..;;;| Works i|
|00000120| 6e 20 32 2e 30 62 33 70 | 31 2c 20 70 72 6f 62 61 |n 2.0b3p|1, proba|
|00000130| 62 6c 79 20 6e 6f 74 20 | 69 6e 20 6f 6c 64 65 72 |bly not |in older|
|00000140| 20 4d 43 4c 27 73 0d 0d | 3b 3b 3b 20 46 69 6c 65 | MCL's..|;;; File|
|00000150| 20 66 6f 72 6d 61 74 20 | 64 65 66 69 6e 69 74 69 | format |definiti|
|00000160| 6f 6e 73 0d 0d 28 64 65 | 66 63 6f 6e 73 74 61 6e |ons..(de|fconstan|
|00000170| 74 20 2b 6d 65 73 73 61 | 67 65 2d 73 65 70 61 72 |t +messa|ge-separ|
|00000180| 61 74 6f 72 2d 63 68 61 | 72 61 63 74 65 72 2b 20 |ator-cha|racter+ |
|00000190| 23 5c 44 6f 77 6e 41 72 | 72 6f 77 29 20 20 3b 20 |#\DownAr|row)  ; |
|000001a0| 66 6f 6c 6c 6f 77 65 64 | 20 62 79 20 23 5c 50 61 |followed| by #\Pa|
|000001b0| 67 65 20 65 78 63 65 70 | 74 20 61 74 20 74 68 65 |ge excep|t at the|
|000001c0| 20 65 6e 64 0d 0d 3b 3b | 3b 20 46 61 73 74 20 62 | end..;;|; Fast b|
|000001d0| 75 66 66 65 72 65 64 20 | 49 2f 4f 20 64 65 66 69 |uffered |I/O defi|
|000001e0| 6e 69 74 69 6f 6e 73 0d | 0d 28 64 65 66 76 61 72 |nitions.|.(defvar|
|000001f0| 20 2a 73 6f 72 74 6d 61 | 69 6c 2d 62 75 66 66 65 | *sortma|il-buffe|
|00000200| 72 2d 70 74 72 2a 29 20 | 20 20 20 20 20 20 20 20 |r-ptr*) |        |
|00000210| 20 3b 6d 61 63 70 74 72 | 20 74 6f 20 62 75 66 66 | ;macptr| to buff|
|00000220| 65 72 0d 28 64 65 66 76 | 61 72 20 2a 73 6f 72 74 |er.(defv|ar *sort|
|00000230| 6d 61 69 6c 2d 62 75 66 | 66 65 72 2d 70 6f 73 69 |mail-buf|fer-posi|
|00000240| 74 69 6f 6e 2a 29 09 3b | 69 6e 64 65 78 20 6f 66 |tion*).;|index of|
|00000250| 20 6e 65 78 74 20 63 68 | 61 72 61 63 74 65 72 20 | next ch|aracter |
|00000260| 69 6e 20 62 75 66 66 65 | 72 0d 28 64 65 66 76 61 |in buffe|r.(defva|
|00000270| 72 20 2a 73 6f 72 74 6d | 61 69 6c 2d 62 75 66 66 |r *sortm|ail-buff|
|00000280| 65 72 2d 66 69 6c 65 2d | 70 6f 73 69 74 69 6f 6e |er-file-|position|
|00000290| 2a 29 20 3b 66 69 6c 65 | 20 70 6f 73 69 74 69 6f |*) ;file| positio|
|000002a0| 6e 20 6f 66 20 66 69 72 | 73 74 20 63 68 61 72 61 |n of fir|st chara|
|000002b0| 63 74 65 72 20 69 6e 20 | 62 75 66 66 65 72 0d 28 |cter in |buffer.(|
|000002c0| 64 65 66 76 61 72 20 2a | 73 6f 72 74 6d 61 69 6c |defvar *|sortmail|
|000002d0| 2d 62 75 66 66 65 72 2d | 66 69 6c 6c 2d 70 6f 69 |-buffer-|fill-poi|
|000002e0| 6e 74 65 72 2a 29 20 3b | 6e 75 6d 62 65 72 20 6f |nter*) ;|number o|
|000002f0| 66 20 76 61 6c 69 64 20 | 63 68 61 72 61 63 74 65 |f valid |characte|
|00000300| 72 73 20 69 6e 20 62 75 | 66 66 65 72 0d 28 64 65 |rs in bu|ffer.(de|
|00000310| 66 76 61 72 20 2a 73 6f | 72 74 6d 61 69 6c 2d 62 |fvar *so|rtmail-b|
|00000320| 75 66 66 65 72 2d 73 69 | 7a 65 2a 20 28 2d 20 28 |uffer-si|ze* (- (|
|00000330| 65 78 70 74 20 32 20 31 | 35 29 20 35 31 32 29 29 |expt 2 1|5) 512))|
|00000340| 20 20 20 20 20 3b 6e 75 | 6d 62 65 72 20 6f 66 20 |     ;nu|mber of |
|00000350| 62 79 74 65 73 20 69 6e | 20 62 75 66 66 65 72 0d |bytes in| buffer.|
|00000360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000380| 20 20 20 20 20 20 20 20 | 3b 20 73 68 6f 75 6c 64 |        |; should|
|00000390| 20 62 65 20 6d 75 6c 74 | 69 70 6c 65 20 6f 66 20 | be mult|iple of |
|000003a0| 35 31 32 20 74 68 61 74 | 20 66 69 74 73 20 69 6e |512 that| fits in|
|000003b0| 20 31 35 20 62 69 74 73 | 0d 28 64 65 66 76 61 72 | 15 bits|.(defvar|
|000003c0| 20 2a 73 6f 72 74 6d 61 | 69 6c 2d 69 6e 70 75 74 | *sortma|il-input|
|000003d0| 2d 66 69 6c 65 2d 72 65 | 66 6e 75 6d 2a 29 0d 0d |-file-re|fnum*)..|
|000003e0| 28 65 76 61 6c 2d 77 68 | 65 6e 20 28 63 6f 6d 70 |(eval-wh|en (comp|
|000003f0| 69 6c 65 20 65 76 61 6c | 29 0d 28 64 65 66 6d 61 |ile eval|).(defma|
|00000400| 63 72 6f 20 77 69 74 68 | 2d 6f 70 65 6e 2d 73 6f |cro with|-open-so|
|00000410| 72 74 6d 61 69 6c 2d 66 | 69 6c 65 20 28 28 72 65 |rtmail-f|ile ((re|
|00000420| 66 6e 75 6d 2d 76 61 72 | 20 70 61 74 68 6e 61 6d |fnum-var| pathnam|
|00000430| 65 20 64 69 72 65 63 74 | 69 6f 6e 29 20 26 62 6f |e direct|ion) &bo|
|00000440| 64 79 20 62 6f 64 79 29 | 0d 20 20 60 28 6c 65 74 |dy body)|.  `(let|
|00000450| 20 28 28 2c 72 65 66 6e | 75 6d 2d 76 61 72 20 28 | ((,refn|um-var (|
|00000460| 77 69 74 68 2d 70 73 74 | 72 20 28 6e 61 6d 65 20 |with-pst|r (name |
|00000470| 28 6d 61 63 2d 6e 61 6d | 65 73 74 72 69 6e 67 20 |(mac-nam|estring |
|00000480| 2c 70 61 74 68 6e 61 6d | 65 29 29 0d 20 20 20 20 |,pathnam|e)).    |
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004a0| 20 20 20 20 3b 3b 20 54 | 68 65 20 66 6f 6c 6c 6f |    ;; T|he follo|
|000004b0| 77 69 6e 67 20 69 73 20 | 6d 6f 64 69 66 69 65 64 |wing is |modified|
|000004c0| 20 66 72 6f 6d 20 74 72 | 61 70 73 3a 3a 66 73 6f | from tr|aps::fso|
|000004d0| 70 65 6e 2c 20 77 68 69 | 63 68 20 69 73 20 62 72 |pen, whi|ch is br|
|000004e0| 6f 6b 65 6e 0d 20 20 20 | 20 20 20 20 20 20 20 20 |oken.   |        |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 72 6c |        |     (rl|
|00000500| 65 74 20 28 28 70 62 20 | 3a 68 70 61 72 61 6d 62 |et ((pb |:hparamb|
|00000510| 6c 6f 63 6b 72 65 63 29 | 29 0d 20 20 20 20 20 20 |lockrec)|).      |
|00000520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000530| 20 20 20 20 28 73 65 74 | 66 20 28 72 72 65 66 20 |    (set|f (rref |
|00000540| 70 62 20 3a 68 70 61 72 | 61 6d 62 6c 6f 63 6b 72 |pb :hpar|amblockr|
|00000550| 65 63 2e 69 6f 6e 61 6d | 65 70 74 72 29 20 6e 61 |ec.ionam|eptr) na|
|00000560| 6d 65 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |me.     |        |
|00000570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000580| 20 20 20 28 72 72 65 66 | 20 70 62 20 3a 68 70 61 |   (rref| pb :hpa|
|00000590| 72 61 6d 62 6c 6f 63 6b | 72 65 63 2e 69 6f 76 72 |ramblock|rec.iovr|
|000005a0| 65 66 6e 75 6d 29 20 30 | 0d 20 20 20 20 20 20 20 |efnum) 0|.       |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000005c0| 20 20 20 20 20 20 20 20 | 20 28 72 72 65 66 20 70 |        | (rref p|
|000005d0| 62 20 3a 68 70 61 72 61 | 6d 62 6c 6f 63 6b 72 65 |b :hpara|mblockre|
|000005e0| 63 2e 69 6f 72 65 66 6e | 75 6d 29 20 30 0d 20 20 |c.iorefn|um) 0.  |
|000005f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 72 |        |      (r|
|00000610| 72 65 66 20 70 62 20 3a | 68 70 61 72 61 6d 62 6c |ref pb :|hparambl|
|00000620| 6f 63 6b 72 65 63 2e 69 | 6f 4d 69 73 63 29 20 28 |ockrec.i|oMisc) (|
|00000630| 25 6e 75 6c 6c 2d 70 74 | 72 29 0d 20 20 20 20 20 |%null-pt|r).     |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000650| 20 20 20 20 20 20 20 20 | 20 20 20 28 72 72 65 66 |        |   (rref|
|00000660| 20 70 62 20 3a 68 70 61 | 72 61 6d 62 6c 6f 63 6b | pb :hpa|ramblock|
|00000670| 72 65 63 2e 69 6f 50 65 | 72 6d 73 73 6e 29 0d 20 |rec.ioPe|rmssn). |
|00000680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006a0| 20 20 2c 28 65 63 61 73 | 65 20 64 69 72 65 63 74 |  ,(ecas|e direct|
|000006b0| 69 6f 6e 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ion.    |        |
|000006c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000006d0| 20 20 20 20 20 20 20 20 | 20 20 28 3a 69 6e 70 75 |        |  (:inpu|
|000006e0| 74 20 31 29 20 20 20 20 | 20 20 20 20 3b 66 73 52 |t 1)    |    ;fsR|
|000006f0| 64 50 65 72 6d 0d 20 20 | 20 20 20 20 20 20 20 20 |dPerm.  |        |
|00000700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000710| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 3a 6f 75 |        |    (:ou|
|00000720| 74 70 75 74 20 32 29 20 | 20 20 20 20 20 20 3b 66 |tput 2) |      ;f|
|00000730| 73 57 72 50 65 72 6d 0d | 20 20 20 20 20 20 20 20 |sWrPerm.|        |
|00000740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 3a |        |      (:|
|00000760| 65 78 63 6c 75 73 69 76 | 65 20 33 29 29 20 20 20 |exclusiv|e 3))   |
|00000770| 3b 66 73 52 64 57 72 50 | 65 72 6d 0d 20 20 20 20 |;fsRdWrP|erm.    |
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000790| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 72 72 65 |        |    (rre|
|000007a0| 66 20 70 62 20 3a 68 70 | 61 72 61 6d 62 6c 6f 63 |f pb :hp|arambloc|
|000007b0| 6b 72 65 63 2e 69 6f 56 | 65 72 73 4e 75 6d 29 20 |krec.ioV|ersNum) |
|000007c0| 30 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0).     |        |
|000007d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 6c 65 |        |     (le|
|000007e0| 74 20 28 28 65 72 72 20 | 28 72 65 67 69 73 74 65 |t ((err |(registe|
|000007f0| 72 2d 74 72 61 70 20 23 | 78 41 30 36 30 20 3a 61 |r-trap #|xA060 :a|
|00000800| 30 20 70 62 20 3a 64 30 | 20 32 36 20 28 3a 73 69 |0 pb :d0| 26 (:si|
|00000810| 67 6e 65 64 2d 69 6e 74 | 65 67 65 72 20 3a 64 30 |gned-int|eger :d0|
|00000820| 29 29 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |)))).   |        |
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000840| 20 28 69 66 20 28 65 71 | 6c 20 65 72 72 20 2d 35 | (if (eq|l err -5|
|00000850| 30 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0).     |        |
|00000860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000870| 20 28 73 65 74 71 20 65 | 72 72 20 28 72 65 67 69 | (setq e|rr (regi|
|00000880| 73 74 65 72 2d 74 72 61 | 70 20 23 78 41 30 30 30 |ster-tra|p #xA000|
|00000890| 20 3a 61 30 20 70 62 20 | 28 3a 73 69 67 6e 65 64 | :a0 pb |(:signed|
|000008a0| 2d 69 6e 74 65 67 65 72 | 20 3a 64 30 29 29 29 29 |-integer| :d0))))|
|000008b0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000008c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 75 6e |        |     (un|
|000008d0| 6c 65 73 73 20 28 7a 65 | 72 6f 70 20 65 72 72 29 |less (ze|rop err)|
|000008e0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000008f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00000900| 65 72 72 6f 72 20 22 4f | 53 20 65 72 72 6f 72 20 |error "O|S error |
|00000910| 7e 44 20 6f 70 65 6e 69 | 6e 67 20 66 69 6c 65 20 |~D openi|ng file |
|00000920| 7e 41 22 20 65 72 72 20 | 28 25 67 65 74 2d 73 74 |~A" err |(%get-st|
|00000930| 72 69 6e 67 20 6e 61 6d | 65 29 29 29 0d 20 20 20 |ring nam|e))).   |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000950| 20 20 20 20 20 20 20 20 | 20 28 72 72 65 66 20 70 |        | (rref p|
|00000960| 62 20 3a 68 70 61 72 61 | 6d 62 6c 6f 63 6b 72 65 |b :hpara|mblockre|
|00000970| 63 2e 69 6f 72 65 66 6e | 75 6d 29 29 29 29 29 29 |c.iorefn|um))))))|
|00000980| 0d 20 20 20 20 20 28 75 | 6e 77 69 6e 64 2d 70 72 |.     (u|nwind-pr|
|00000990| 6f 74 65 63 74 20 28 70 | 72 6f 67 6e 20 2c 40 62 |otect (p|rogn ,@b|
|000009a0| 6f 64 79 29 0d 20 20 20 | 20 20 20 20 3b 44 6f 65 |ody).   |    ;Doe|
|000009b0| 73 6e 27 74 20 77 6f 72 | 6b 20 62 65 63 61 75 73 |sn't wor|k becaus|
|000009c0| 65 20 74 72 61 70 73 3a | 3a 63 6c 6f 73 65 72 65 |e traps:|:closere|
|000009d0| 66 6e 75 6d 20 69 73 20 | 62 72 6f 6b 65 6e 2c 20 |fnum is |broken, |
|000009e0| 67 65 74 73 20 62 61 64 | 55 6e 69 74 45 72 72 2c |gets bad|UnitErr,|
|000009f0| 0d 20 20 20 20 20 20 20 | 3b 62 65 63 61 75 73 65 |.       |;because|
|00000a00| 20 69 74 20 64 6f 65 73 | 20 5f 4b 69 6c 6c 49 4f | it does| _KillIO|
|00000a10| 20 69 6e 73 74 65 61 64 | 20 6f 66 20 5f 43 6c 6f | instead| of _Clo|
|00000a20| 73 65 21 0d 20 20 20 20 | 20 20 20 3b 28 72 65 71 |se!.    |   ;(req|
|00000a30| 75 69 72 65 2d 74 72 61 | 70 20 23 5f 46 53 43 6c |uire-tra|p #_FSCl|
|00000a40| 6f 73 65 20 2c 72 65 66 | 6e 75 6d 2d 76 61 72 29 |ose ,ref|num-var)|
|00000a50| 0d 20 20 20 20 20 20 20 | 3b 44 6f 20 74 68 69 73 |.       |;Do this|
|00000a60| 20 69 6e 73 74 65 61 64 | 0d 20 20 20 20 20 20 20 | instead|.       |
|00000a70| 28 63 63 6c 3a 72 6c 65 | 74 20 28 28 70 62 20 3a |(ccl:rle|t ((pb :|
|00000a80| 68 70 61 72 61 6d 62 6c | 6f 63 6b 72 65 63 29 29 |hparambl|ockrec))|
|00000a90| 0d 20 20 20 20 20 20 20 | 20 20 28 73 65 74 66 20 |.       |  (setf |
|00000aa0| 28 63 63 6c 3a 72 72 65 | 66 20 70 62 20 3a 68 70 |(ccl:rre|f pb :hp|
|00000ab0| 61 72 61 6d 62 6c 6f 63 | 6b 72 65 63 2e 69 6f 72 |arambloc|krec.ior|
|00000ac0| 65 66 6e 75 6d 29 20 2c | 72 65 66 6e 75 6d 2d 76 |efnum) ,|refnum-v|
|00000ad0| 61 72 29 0d 20 20 20 20 | 20 20 20 20 20 28 63 63 |ar).    |     (cc|
|00000ae0| 6c 3a 72 65 67 69 73 74 | 65 72 2d 74 72 61 70 20 |l:regist|er-trap |
|00000af0| 23 78 41 30 30 31 20 3a | 61 30 20 70 62 20 28 3a |#xA001 :|a0 pb (:|
|00000b00| 73 69 67 6e 65 64 2d 69 | 6e 74 65 67 65 72 20 3a |signed-i|nteger :|
|00000b10| 64 30 29 29 29 29 29 29 | 29 0d 0d 28 65 76 61 6c |d0))))))|)..(eval|
|00000b20| 2d 77 68 65 6e 20 28 63 | 6f 6d 70 69 6c 65 20 65 |-when (c|ompile e|
|00000b30| 76 61 6c 29 0d 28 64 65 | 66 6d 61 63 72 6f 20 77 |val).(de|fmacro w|
|00000b40| 69 74 68 2d 73 6f 72 74 | 6d 61 69 6c 2d 62 75 66 |ith-sort|mail-buf|
|00000b50| 66 65 72 20 28 26 62 6f | 64 79 20 62 6f 64 79 29 |fer (&bo|dy body)|
|00000b60| 0d 20 20 60 28 6c 65 74 | 20 28 28 2a 73 6f 72 74 |.  `(let| ((*sort|
|00000b70| 6d 61 69 6c 2d 62 75 66 | 66 65 72 2d 70 74 72 2a |mail-buf|fer-ptr*|
|00000b80| 20 28 72 65 71 75 69 72 | 65 2d 74 72 61 70 20 23 | (requir|e-trap #|
|00000b90| 5f 4e 65 77 50 74 72 20 | 2a 73 6f 72 74 6d 61 69 |_NewPtr |*sortmai|
|00000ba0| 6c 2d 62 75 66 66 65 72 | 2d 73 69 7a 65 2a 29 29 |l-buffer|-size*))|
|00000bb0| 0d 20 20 20 20 20 20 20 | 20 20 28 2a 73 6f 72 74 |.       |  (*sort|
|00000bc0| 6d 61 69 6c 2d 62 75 66 | 66 65 72 2d 70 6f 73 69 |mail-buf|fer-posi|
|00000bd0| 74 69 6f 6e 2a 20 30 29 | 0d 20 20 20 20 20 20 20 |tion* 0)|.       |
|00000be0| 20 20 28 2a 73 6f 72 74 | 6d 61 69 6c 2d 62 75 66 |  (*sort|mail-buf|
|00000bf0| 66 65 72 2d 66 69 6c 65 | 2d 70 6f 73 69 74 69 6f |fer-file|-positio|
|00000c00| 6e 2a 20 30 29 0d 20 20 | 20 20 20 20 20 20 20 28 |n* 0).  |       (|
|00000c10| 2a 73 6f 72 74 6d 61 69 | 6c 2d 62 75 66 66 65 72 |*sortmai|l-buffer|
|00000c20| 2d 66 69 6c 6c 2d 70 6f | 69 6e 74 65 72 2a 20 30 |-fill-po|inter* 0|
|00000c30| 29 29 0d 20 20 20 20 20 | 28 77 68 65 6e 20 28 25 |)).     |(when (%|
|00000c40| 6e 75 6c 6c 2d 70 74 72 | 2d 70 20 2a 73 6f 72 74 |null-ptr|-p *sort|
|00000c50| 6d 61 69 6c 2d 62 75 66 | 66 65 72 2d 70 74 72 2a |mail-buf|fer-ptr*|
|00000c60| 29 0d 20 20 20 20 20 20 | 20 28 65 72 72 6f 72 20 |).      | (error |
|00000c70| 22 55 6e 61 62 6c 65 20 | 74 6f 20 61 6c 6c 6f 63 |"Unable |to alloc|
|00000c80| 61 74 65 20 7e 3a 44 2d | 62 79 74 65 20 62 75 66 |ate ~:D-|byte buf|
|00000c90| 66 65 72 22 20 2a 73 6f | 72 74 6d 61 69 6c 2d 62 |fer" *so|rtmail-b|
|00000ca0| 75 66 66 65 72 2d 73 69 | 7a 65 2a 29 29 0d 20 20 |uffer-si|ze*)).  |
|00000cb0| 20 20 20 28 75 6e 77 69 | 6e 64 2d 70 72 6f 74 65 |   (unwi|nd-prote|
|00000cc0| 63 74 0d 20 20 20 20 20 | 20 20 28 70 72 6f 67 6e |ct.     |  (progn|
|00000cd0| 20 2c 40 62 6f 64 79 29 | 0d 20 20 20 20 20 20 20 | ,@body)|.       |
|00000ce0| 28 72 65 71 75 69 72 65 | 2d 74 72 61 70 20 23 5f |(require|-trap #_|
|00000cf0| 44 69 73 70 6f 73 50 74 | 72 20 2a 73 6f 72 74 6d |DisposPt|r *sortm|
|00000d00| 61 69 6c 2d 62 75 66 66 | 65 72 2d 70 74 72 2a 29 |ail-buff|er-ptr*)|
|00000d10| 29 29 29 29 0d 0d 28 65 | 76 61 6c 2d 77 68 65 6e |))))..(e|val-when|
|00000d20| 20 28 63 6f 6d 70 69 6c | 65 20 65 76 61 6c 29 0d | (compil|e eval).|
|00000d30| 28 64 65 66 6d 61 63 72 | 6f 20 75 73 69 6e 67 2d |(defmacr|o using-|
|00000d40| 73 6f 72 74 6d 61 69 6c | 2d 62 75 66 66 65 72 20 |sortmail|-buffer |
|00000d50| 28 26 62 6f 64 79 20 62 | 6f 64 79 29 0d 20 20 60 |(&body b|ody).  `|
|00000d60| 28 6c 65 74 20 28 28 62 | 75 66 66 65 72 2d 70 6f |(let ((b|uffer-po|
|00000d70| 69 6e 74 65 72 20 2a 73 | 6f 72 74 6d 61 69 6c 2d |inter *s|ortmail-|
|00000d80| 62 75 66 66 65 72 2d 70 | 74 72 2a 29 0d 20 20 20 |buffer-p|tr*).   |
|00000d90| 20 20 20 20 20 20 28 62 | 75 66 66 65 72 2d 70 6f |      (b|uffer-po|
|00000da0| 73 69 74 69 6f 6e 20 2a | 73 6f 72 74 6d 61 69 6c |sition *|sortmail|
|00000db0| 2d 62 75 66 66 65 72 2d | 70 6f 73 69 74 69 6f 6e |-buffer-|position|
|00000dc0| 2a 29 0d 20 20 20 20 20 | 20 20 20 20 28 62 75 66 |*).     |    (buf|
|00000dd0| 66 65 72 2d 66 69 6c 6c | 2d 70 6f 69 6e 74 65 72 |fer-fill|-pointer|
|00000de0| 20 2a 73 6f 72 74 6d 61 | 69 6c 2d 62 75 66 66 65 | *sortma|il-buffe|
|00000df0| 72 2d 66 69 6c 6c 2d 70 | 6f 69 6e 74 65 72 2a 29 |r-fill-p|ointer*)|
|00000e00| 29 0d 20 20 20 20 20 28 | 64 65 63 6c 61 72 65 20 |).     (|declare |
|00000e10| 28 74 79 70 65 20 6d 61 | 63 70 74 72 20 62 75 66 |(type ma|cptr buf|
|00000e20| 66 65 72 2d 70 6f 69 6e | 74 65 72 29 0d 20 20 20 |fer-poin|ter).   |
|00000e30| 20 20 20 20 20 20 20 20 | 20 20 20 28 66 69 78 6e |        |   (fixn|
|00000e40| 75 6d 20 62 75 66 66 65 | 72 2d 70 6f 73 69 74 69 |um buffe|r-positi|
|00000e50| 6f 6e 20 62 75 66 66 65 | 72 2d 66 69 6c 6c 2d 70 |on buffe|r-fill-p|
|00000e60| 6f 69 6e 74 65 72 29 29 | 0d 20 20 20 20 20 28 75 |ointer))|.     (u|
|00000e70| 6e 77 69 6e 64 2d 70 72 | 6f 74 65 63 74 0d 20 20 |nwind-pr|otect.  |
|00000e80| 20 20 20 20 20 28 6d 61 | 63 72 6f 6c 65 74 20 28 |     (ma|crolet (|
|00000e90| 28 6e 65 78 74 2d 63 68 | 61 72 20 28 29 0d 20 20 |(next-ch|ar ().  |
|00000ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000eb0| 20 20 60 28 62 6c 6f 63 | 6b 20 6e 65 78 74 2d 63 |  `(bloc|k next-c|
|00000ec0| 68 61 72 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |har.    |        |
|00000ed0| 20 20 20 20 20 20 20 20 | 20 20 20 28 77 68 65 6e |        |   (when|
|00000ee0| 20 28 3e 3d 20 62 75 66 | 66 65 72 2d 70 6f 73 69 | (>= buf|fer-posi|
|00000ef0| 74 69 6f 6e 20 62 75 66 | 66 65 72 2d 66 69 6c 6c |tion buf|fer-fill|
|00000f00| 2d 70 6f 69 6e 74 65 72 | 29 0d 20 20 20 20 20 20 |-pointer|).      |
|00000f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f20| 20 20 20 28 75 6e 6c 65 | 73 73 20 28 6e 65 78 74 |   (unle|ss (next|
|00000f30| 2d 62 75 66 66 65 72 29 | 20 28 72 65 74 75 72 6e |-buffer)| (return|
|00000f40| 2d 66 72 6f 6d 20 6e 65 | 78 74 2d 63 68 61 72 20 |-from ne|xt-char |
|00000f50| 3a 65 6f 66 29 29 29 0d | 20 20 20 20 20 20 20 20 |:eof))).|        |
|00000f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00000f70| 70 72 6f 67 31 20 28 63 | 6f 64 65 2d 63 68 61 72 |prog1 (c|ode-char|
|00000f80| 20 28 25 67 65 74 2d 62 | 79 74 65 20 62 75 66 66 | (%get-b|yte buff|
|00000f90| 65 72 2d 70 6f 69 6e 74 | 65 72 20 62 75 66 66 65 |er-point|er buffe|
|00000fa0| 72 2d 70 6f 73 69 74 69 | 6f 6e 29 29 0d 20 20 20 |r-positi|on)).   |
|00000fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fc0| 20 20 20 20 20 20 20 20 | 20 20 20 28 69 6e 63 66 |        |   (incf|
|00000fd0| 20 62 75 66 66 65 72 2d | 70 6f 73 69 74 69 6f 6e | buffer-|position|
|00000fe0| 29 29 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |)))).   |        |
|00000ff0| 20 20 20 20 20 20 20 28 | 75 6e 6e 65 78 74 2d 63 |       (|unnext-c|
|00001000| 68 61 72 20 28 29 0d 20 | 20 20 20 20 20 20 20 20 |har (). |        |
|00001010| 20 20 20 20 20 20 20 20 | 20 20 20 60 28 64 65 63 |        |   `(dec|
|00001020| 66 20 62 75 66 66 65 72 | 2d 70 6f 73 69 74 69 6f |f buffer|-positio|
|00001030| 6e 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |n)).    |        |
|00001040| 20 20 20 20 20 20 28 6e | 65 78 74 2d 6c 69 6e 65 |      (n|ext-line|
|00001050| 20 28 29 20 20 20 20 20 | 20 20 20 20 3b 72 65 74 | ()     |    ;ret|
|00001060| 75 72 6e 73 20 74 20 69 | 66 20 72 65 61 64 20 70 |urns t i|f read p|
|00001070| 61 73 74 20 6e 65 77 6c | 69 6e 65 2c 20 6e 69 6c |ast newl|ine, nil|
|00001080| 20 69 66 20 72 65 61 63 | 68 65 64 20 65 6f 66 0d | if reac|hed eof.|
|00001090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010a0| 20 20 20 20 60 28 6c 6f | 6f 70 20 77 69 74 68 20 |    `(lo|op with |
|000010b0| 66 6f 75 6e 64 20 3d 20 | 6e 69 6c 20 64 6f 0d 20 |found = |nil do. |
|000010c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000010d0| 20 20 20 20 20 20 28 6c | 61 70 2d 69 6e 6c 69 6e |      (l|ap-inlin|
|000010e0| 65 20 28 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |e ().   |        |
|000010f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 3a |        |      (:|
|00001100| 76 61 72 69 61 62 6c 65 | 20 62 75 66 66 65 72 2d |variable| buffer-|
|00001110| 70 6f 69 6e 74 65 72 20 | 62 75 66 66 65 72 2d 70 |pointer |buffer-p|
|00001120| 6f 73 69 74 69 6f 6e 20 | 62 75 66 66 65 72 2d 66 |osition |buffer-f|
|00001130| 69 6c 6c 2d 70 6f 69 6e | 74 65 72 20 66 6f 75 6e |ill-poin|ter foun|
|00001140| 64 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d).     |        |
|00001150| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 6d 6f 76 |        |    (mov|
|00001160| 65 2e 6c 20 28 76 61 72 | 67 20 62 75 66 66 65 72 |e.l (var|g buffer|
|00001170| 2d 70 6f 69 6e 74 65 72 | 29 20 61 74 65 6d 70 30 |-pointer|) atemp0|
|00001180| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00001190| 20 20 20 20 20 20 20 20 | 20 20 20 28 6d 6f 76 65 |        |   (move|
|000011a0| 2e 6c 20 28 61 74 65 6d | 70 30 20 24 6d 61 63 70 |.l (atem|p0 $macp|
|000011b0| 74 72 2e 70 74 72 29 20 | 61 74 65 6d 70 30 29 0d |tr.ptr) |atemp0).|
|000011c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000011d0| 20 20 20 20 20 20 20 20 | 20 28 6d 6f 76 65 2e 6c |        | (move.l|
|000011e0| 20 28 76 61 72 67 20 62 | 75 66 66 65 72 2d 70 6f | (varg b|uffer-po|
|000011f0| 73 69 74 69 6f 6e 29 20 | 64 74 65 6d 70 30 29 0d |sition) |dtemp0).|
|00001200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001210| 20 20 20 20 20 20 20 20 | 20 28 61 73 72 2e 6c 20 |        | (asr.l |
|00001220| 2c 24 66 69 78 6e 75 6d | 73 68 69 66 74 20 64 74 |,$fixnum|shift dt|
|00001230| 65 6d 70 30 29 0d 20 20 | 20 20 20 20 20 20 20 20 |emp0).  |        |
|00001240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00001250| 61 64 64 2e 6c 20 64 74 | 65 6d 70 30 20 61 74 65 |add.l dt|emp0 ate|
|00001260| 6d 70 30 29 20 20 20 20 | 20 20 20 20 20 20 3b 20 |mp0)    |      ; |
|00001270| 61 74 65 6d 70 30 20 70 | 6f 69 6e 74 73 20 74 6f |atemp0 p|oints to|
|00001280| 20 6e 65 78 74 20 63 68 | 61 72 61 63 74 65 72 0d | next ch|aracter.|
|00001290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000012a0| 20 20 20 20 20 20 20 20 | 20 28 6d 6f 76 65 2e 6c |        | (move.l|
|000012b0| 20 28 76 61 72 67 20 62 | 75 66 66 65 72 2d 66 69 | (varg b|uffer-fi|
|000012c0| 6c 6c 2d 70 6f 69 6e 74 | 65 72 29 20 64 74 65 6d |ll-point|er) dtem|
|000012d0| 70 31 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |p1).    |        |
|000012e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 61 73 |        |     (as|
|000012f0| 72 2e 6c 20 2c 24 66 69 | 78 6e 75 6d 73 68 69 66 |r.l ,$fi|xnumshif|
|00001300| 74 20 64 74 65 6d 70 31 | 29 0d 20 20 20 20 20 20 |t dtemp1|).      |
|00001310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001320| 20 20 20 28 73 75 62 2e | 6c 20 64 74 65 6d 70 30 |   (sub.|l dtemp0|
|00001330| 20 64 74 65 6d 70 31 29 | 20 20 20 20 20 20 20 20 | dtemp1)|        |
|00001340| 20 20 3b 20 64 74 65 6d | 70 31 20 69 73 20 6e 75 |  ; dtem|p1 is nu|
|00001350| 6d 62 65 72 20 6f 66 20 | 63 68 61 72 73 20 69 6e |mber of |chars in|
|00001360| 20 62 75 66 66 65 72 0d | 20 20 20 20 20 20 20 20 | buffer.|        |
|00001370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001380| 20 28 62 6c 65 2e 73 20 | 6e 65 78 74 2d 62 75 66 | (ble.s |next-buf|
|00001390| 66 65 72 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |fer).   |        |
|000013a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 73 |        |      (s|
|000013b0| 75 62 2e 6c 20 28 24 20 | 31 29 20 64 74 65 6d 70 |ub.l ($ |1) dtemp|
|000013c0| 31 29 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 44 |1)      |     ; D|
|000013d0| 42 63 63 20 69 6e 73 74 | 72 75 63 74 69 6f 6e 20 |Bcc inst|ruction |
|000013e0| 69 73 20 6f 66 66 20 62 | 79 20 6f 6e 65 0d 20 20 |is off b|y one.  |
|000013f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001400| 20 20 20 20 20 20 20 28 | 6d 6f 76 65 2e 6c 20 64 |       (|move.l d|
|00001410| 74 65 6d 70 31 20 64 74 | 65 6d 70 32 29 0d 20 20 |temp1 dt|emp2).  |
|00001420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001430| 20 20 20 20 20 20 20 28 | 6d 6f 76 65 2e 62 20 28 |       (|move.b (|
|00001440| 24 20 2c 28 63 68 61 72 | 2d 63 6f 64 65 20 23 5c |$ ,(char|-code #\|
|00001450| 6e 65 77 6c 69 6e 65 29 | 29 20 64 74 65 6d 70 30 |newline)|) dtemp0|
|00001460| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00001470| 20 20 20 20 20 20 20 20 | 20 20 6c 6f 6f 70 0d 20 |        |  loop. |
|00001480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001490| 20 20 20 20 20 20 20 20 | 28 63 6d 70 2e 62 20 28 |        |(cmp.b (|
|000014a0| 40 2b 20 61 74 65 6d 70 | 30 29 20 64 74 65 6d 70 |@+ atemp|0) dtemp|
|000014b0| 30 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0).     |        |
|000014c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 64 62 65 |        |    (dbe|
|000014d0| 71 2e 73 20 64 74 65 6d | 70 31 20 6c 6f 6f 70 29 |q.s dtem|p1 loop)|
|000014e0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000014f0| 20 20 20 20 20 20 20 20 | 20 20 28 62 6e 65 2e 73 |        |  (bne.s|
|00001500| 20 75 70 64 61 74 65 29 | 0d 20 20 20 20 20 20 20 | update)|.       |
|00001510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001520| 20 20 28 61 64 64 2e 6c | 20 28 24 20 24 74 5f 76 |  (add.l| ($ $t_v|
|00001530| 61 6c 29 20 28 76 61 72 | 67 20 66 6f 75 6e 64 29 |al) (var|g found)|
|00001540| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00001550| 20 20 20 20 20 20 20 20 | 20 20 20 28 73 75 62 2e |        |   (sub.|
|00001560| 6c 20 28 24 20 31 29 20 | 64 74 65 6d 70 31 29 20 |l ($ 1) |dtemp1) |
|00001570| 20 20 20 20 20 20 20 20 | 20 20 3b 20 44 42 63 63 |        |  ; DBcc|
|00001580| 20 64 69 64 6e 27 74 20 | 64 6f 20 74 68 69 73 20 | didn't |do this |
|00001590| 69 66 20 6e 65 77 6c 69 | 6e 65 20 66 6f 75 6e 64 |if newli|ne found|
|000015a0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000015b0| 20 20 20 20 20 20 20 20 | 20 75 70 64 61 74 65 0d |        | update.|
|000015c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000015d0| 20 20 20 20 20 20 20 20 | 20 28 73 75 62 2e 6c 20 |        | (sub.l |
|000015e0| 64 74 65 6d 70 31 20 64 | 74 65 6d 70 32 29 20 20 |dtemp1 d|temp2)  |
|000015f0| 20 20 20 20 20 20 20 20 | 3b 20 64 74 65 6d 70 32 |        |; dtemp2|
|00001600| 20 69 73 20 6e 75 6d 62 | 65 72 20 6f 66 20 63 68 | is numb|er of ch|
|00001610| 61 72 73 20 73 6b 69 70 | 70 65 64 0d 20 20 20 20 |ars skip|ped.    |
|00001620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001630| 20 20 20 20 20 28 61 73 | 6c 2e 6c 20 2c 24 66 69 |     (as|l.l ,$fi|
|00001640| 78 6e 75 6d 73 68 69 66 | 74 20 64 74 65 6d 70 32 |xnumshif|t dtemp2|
|00001650| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00001660| 20 20 20 20 20 20 20 20 | 20 20 20 28 61 64 64 2e |        |   (add.|
|00001670| 6c 20 64 74 65 6d 70 32 | 20 28 76 61 72 67 20 62 |l dtemp2| (varg b|
|00001680| 75 66 66 65 72 2d 70 6f | 73 69 74 69 6f 6e 29 29 |uffer-po|sition))|
|00001690| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000016a0| 20 20 20 20 20 20 20 20 | 20 6e 65 78 74 2d 62 75 |        | next-bu|
|000016b0| 66 66 65 72 29 0d 20 20 | 20 20 20 20 20 20 20 20 |ffer).  |        |
|000016c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 77 68 |        |     (wh|
|000016d0| 65 6e 20 66 6f 75 6e 64 | 20 28 72 65 74 75 72 6e |en found| (return|
|000016e0| 20 66 6f 75 6e 64 29 29 | 0d 20 20 20 20 20 20 20 | found))|.       |
|000016f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001700| 28 75 6e 6c 65 73 73 20 | 28 6e 65 78 74 2d 62 75 |(unless |(next-bu|
|00001710| 66 66 65 72 29 20 28 72 | 65 74 75 72 6e 20 6e 69 |ffer) (r|eturn ni|
|00001720| 6c 29 29 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |l)))).  |        |
|00001730| 20 20 20 20 20 20 20 20 | 28 6e 65 78 74 2d 62 75 |        |(next-bu|
|00001740| 66 66 65 72 20 28 29 0d | 20 20 20 20 20 20 20 20 |ffer ().|        |
|00001750| 20 20 20 20 20 20 20 20 | 20 20 20 20 60 28 70 72 |        |    `(pr|
|00001760| 6f 67 31 20 28 6e 65 78 | 74 2d 73 6f 72 74 6d 61 |og1 (nex|t-sortma|
|00001770| 69 6c 2d 62 75 66 66 65 | 72 29 0d 20 20 20 20 20 |il-buffe|r).     |
|00001780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001790| 20 20 28 73 65 74 71 20 | 62 75 66 66 65 72 2d 70 |  (setq |buffer-p|
|000017a0| 6f 73 69 74 69 6f 6e 20 | 2a 73 6f 72 74 6d 61 69 |osition |*sortmai|
|000017b0| 6c 2d 62 75 66 66 65 72 | 2d 70 6f 73 69 74 69 6f |l-buffer|-positio|
|000017c0| 6e 2a 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n*.     |        |
|000017d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000017e0| 62 75 66 66 65 72 2d 66 | 69 6c 6c 2d 70 6f 69 6e |buffer-f|ill-poin|
|000017f0| 74 65 72 20 2a 73 6f 72 | 74 6d 61 69 6c 2d 62 75 |ter *sor|tmail-bu|
|00001800| 66 66 65 72 2d 66 69 6c | 6c 2d 70 6f 69 6e 74 65 |ffer-fil|l-pointe|
|00001810| 72 2a 29 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |r*))).  |        |
|00001820| 20 20 20 20 20 20 20 20 | 28 66 69 6c 65 2d 70 6f |        |(file-po|
|00001830| 73 69 74 69 6f 6e 20 28 | 29 0d 20 20 20 20 20 20 |sition (|).      |
|00001840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 60 28 |        |      `(|
|00001850| 2b 20 2a 73 6f 72 74 6d | 61 69 6c 2d 62 75 66 66 |+ *sortm|ail-buff|
|00001860| 65 72 2d 66 69 6c 65 2d | 70 6f 73 69 74 69 6f 6e |er-file-|position|
|00001870| 2a 20 62 75 66 66 65 72 | 2d 70 6f 73 69 74 69 6f |* buffer|-positio|
|00001880| 6e 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |n)).    |        |
|00001890| 20 20 20 20 20 20 28 73 | 65 74 2d 66 69 6c 65 2d |      (s|et-file-|
|000018a0| 70 6f 73 69 74 69 6f 6e | 20 28 70 6f 73 29 0d 20 |position| (pos). |
|000018b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000018c0| 20 20 20 60 28 70 72 6f | 67 6e 0d 20 20 20 20 20 |   `(pro|gn.     |
|000018d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000018e0| 20 20 28 73 65 74 71 20 | 62 75 66 66 65 72 2d 70 |  (setq |buffer-p|
|000018f0| 6f 73 69 74 69 6f 6e 20 | 28 2d 20 2c 70 6f 73 20 |osition |(- ,pos |
|00001900| 2a 73 6f 72 74 6d 61 69 | 6c 2d 62 75 66 66 65 72 |*sortmai|l-buffer|
|00001910| 2d 66 69 6c 65 2d 70 6f | 73 69 74 69 6f 6e 2a 29 |-file-po|sition*)|
|00001920| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00001930| 20 20 20 20 20 20 20 20 | 20 28 75 6e 6c 65 73 73 |        | (unless|
|00001940| 20 28 61 6e 64 20 28 3e | 3d 20 62 75 66 66 65 72 | (and (>|= buffer|
|00001950| 2d 70 6f 73 69 74 69 6f | 6e 20 30 29 20 0d 20 20 |-positio|n 0) .  |
|00001960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001980| 20 20 28 3c 20 62 75 66 | 66 65 72 2d 70 6f 73 69 |  (< buf|fer-posi|
|00001990| 74 69 6f 6e 20 62 75 66 | 66 65 72 2d 66 69 6c 6c |tion buf|fer-fill|
|000019a0| 2d 70 6f 69 6e 74 65 72 | 29 29 0d 20 20 20 20 20 |-pointer|)).     |
|000019b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000019c0| 20 20 20 20 28 73 65 74 | 2d 6d 61 69 6c 2d 66 69 |    (set|-mail-fi|
|000019d0| 6c 65 2d 70 6f 73 69 74 | 69 6f 6e 20 2a 73 6f 72 |le-posit|ion *sor|
|000019e0| 74 6d 61 69 6c 2d 69 6e | 70 75 74 2d 66 69 6c 65 |tmail-in|put-file|
|000019f0| 2d 72 65 66 6e 75 6d 2a | 20 2c 70 6f 73 29 0d 20 |-refnum*| ,pos). |
|00001a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a10| 20 20 20 20 20 20 20 20 | 28 73 65 74 71 20 62 75 |        |(setq bu|
|00001a20| 66 66 65 72 2d 66 69 6c | 6c 2d 70 6f 69 6e 74 65 |ffer-fil|l-pointe|
|00001a30| 72 20 30 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |r 0).   |        |
|00001a40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 73 |        |      (s|
|00001a50| 65 74 71 20 62 75 66 66 | 65 72 2d 70 6f 73 69 74 |etq buff|er-posit|
|00001a60| 69 6f 6e 20 30 29 29 29 | 29 29 0d 20 20 20 20 20 |ion 0)))|)).     |
|00001a70| 20 20 20 20 2c 40 62 6f | 64 79 29 0d 20 20 20 20 |    ,@bo|dy).    |
|00001a80| 20 20 20 28 73 65 74 71 | 20 2a 73 6f 72 74 6d 61 |   (setq| *sortma|
|00001a90| 69 6c 2d 62 75 66 66 65 | 72 2d 70 6f 73 69 74 69 |il-buffe|r-positi|
|00001aa0| 6f 6e 2a 20 62 75 66 66 | 65 72 2d 70 6f 73 69 74 |on* buff|er-posit|
|00001ab0| 69 6f 6e 29 29 29 29 29 | 0d 0d 28 64 65 66 75 6e |ion)))))|..(defun|
|00001ac0| 20 6e 65 78 74 2d 73 6f | 72 74 6d 61 69 6c 2d 62 | next-so|rtmail-b|
|00001ad0| 75 66 66 65 72 20 28 29 | 20 20 20 20 20 20 20 20 |uffer ()|        |
|00001ae0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 72 65 74 |        |   ; ret|
|00001af0| 75 72 6e 73 20 6e 69 6c | 20 61 74 20 65 6f 66 0d |urns nil| at eof.|
|00001b00| 3b 20 20 28 25 73 74 61 | 63 6b 2d 62 6c 6f 63 6b |;  (%sta|ck-block|
|00001b10| 20 28 28 63 6f 75 6e 74 | 20 34 29 29 0d 3b 20 20 | ((count| 4)).;  |
|00001b20| 20 20 28 73 65 74 66 20 | 28 25 67 65 74 2d 6c 6f |  (setf |(%get-lo|
|00001b30| 6e 67 20 63 6f 75 6e 74 | 29 20 2a 73 6f 72 74 6d |ng count|) *sortm|
|00001b40| 61 69 6c 2d 62 75 66 66 | 65 72 2d 73 69 7a 65 2a |ail-buff|er-size*|
|00001b50| 29 0d 3b 20 20 20 20 28 | 6c 65 74 20 28 28 65 72 |).;    (|let ((er|
|00001b60| 72 20 28 72 65 71 75 69 | 72 65 2d 74 72 61 70 20 |r (requi|re-trap |
|00001b70| 23 5f 46 53 52 65 61 64 | 20 2a 73 6f 72 74 6d 61 |#_FSRead| *sortma|
|00001b80| 69 6c 2d 69 6e 70 75 74 | 2d 66 69 6c 65 2d 72 65 |il-input|-file-re|
|00001b90| 66 6e 75 6d 2a 20 63 6f | 75 6e 74 20 2a 73 6f 72 |fnum* co|unt *sor|
|00001ba0| 74 6d 61 69 6c 2d 62 75 | 66 66 65 72 2d 70 74 72 |tmail-bu|ffer-ptr|
|00001bb0| 2a 29 29 0d 3b 20 20 20 | 20 20 20 20 20 20 20 28 |*)).;   |       (|
|00001bc0| 74 72 61 6e 73 66 65 72 | 72 65 64 20 28 25 67 65 |transfer|red (%ge|
|00001bd0| 74 2d 6c 6f 6e 67 20 63 | 6f 75 6e 74 29 29 29 0d |t-long c|ount))).|
|00001be0| 3b 54 68 65 20 61 62 6f | 76 65 20 64 6f 65 73 6e |;The abo|ve doesn|
|00001bf0| 27 74 20 77 6f 72 6b 20 | 62 65 63 61 75 73 65 20 |'t work |because |
|00001c00| 74 72 61 70 73 3a 3a 66 | 73 72 65 61 64 20 69 73 |traps::f|sread is|
|00001c10| 20 62 72 6f 6b 65 6e 0d | 3b 64 6f 20 74 68 69 73 | broken.|;do this|
|00001c20| 20 69 6e 73 74 65 61 64 | 0d 20 20 28 72 6c 65 74 | instead|.  (rlet|
|00001c30| 20 28 28 70 62 20 3a 68 | 70 61 72 61 6d 62 6c 6f | ((pb :h|paramblo|
|00001c40| 63 6b 72 65 63 29 29 0d | 20 20 20 20 28 73 65 74 |ckrec)).|    (set|
|00001c50| 66 20 28 72 72 65 66 20 | 70 62 20 3a 68 70 61 72 |f (rref |pb :hpar|
|00001c60| 61 6d 62 6c 6f 63 6b 72 | 65 63 2e 69 6f 72 65 66 |amblockr|ec.ioref|
|00001c70| 6e 75 6d 29 20 2a 73 6f | 72 74 6d 61 69 6c 2d 69 |num) *so|rtmail-i|
|00001c80| 6e 70 75 74 2d 66 69 6c | 65 2d 72 65 66 6e 75 6d |nput-fil|e-refnum|
|00001c90| 2a 0d 20 20 20 20 20 20 | 20 20 20 20 28 72 72 65 |*.      |    (rre|
|00001ca0| 66 20 70 62 20 3a 68 70 | 61 72 61 6d 62 6c 6f 63 |f pb :hp|arambloc|
|00001cb0| 6b 72 65 63 2e 69 6f 42 | 75 66 66 65 72 29 20 2a |krec.ioB|uffer) *|
|00001cc0| 73 6f 72 74 6d 61 69 6c | 2d 62 75 66 66 65 72 2d |sortmail|-buffer-|
|00001cd0| 70 74 72 2a 0d 20 20 20 | 20 20 20 20 20 20 20 28 |ptr*.   |       (|
|00001ce0| 72 72 65 66 20 70 62 20 | 3a 68 70 61 72 61 6d 62 |rref pb |:hparamb|
|00001cf0| 6c 6f 63 6b 72 65 63 2e | 69 6f 52 65 71 43 6f 75 |lockrec.|ioReqCou|
|00001d00| 6e 74 29 20 2a 73 6f 72 | 74 6d 61 69 6c 2d 62 75 |nt) *sor|tmail-bu|
|00001d10| 66 66 65 72 2d 73 69 7a | 65 2a 0d 20 20 20 20 20 |ffer-siz|e*.     |
|00001d20| 20 20 20 20 20 28 72 72 | 65 66 20 70 62 20 3a 68 |     (rr|ef pb :h|
|00001d30| 70 61 72 61 6d 62 6c 6f | 63 6b 72 65 63 2e 69 6f |paramblo|ckrec.io|
|00001d40| 50 6f 73 4d 6f 64 65 29 | 20 30 20 20 20 20 20 20 |PosMode)| 0      |
|00001d50| 20 20 20 3b 20 66 73 41 | 74 4d 61 72 6b 0d 20 20 |   ; fsA|tMark.  |
|00001d60| 20 20 20 20 20 20 20 20 | 28 72 72 65 66 20 70 62 |        |(rref pb|
|00001d70| 20 3a 68 70 61 72 61 6d | 62 6c 6f 63 6b 72 65 63 | :hparam|blockrec|
|00001d80| 2e 69 6f 50 6f 73 4f 66 | 66 73 65 74 29 20 30 29 |.ioPosOf|fset) 0)|
|00001d90| 0d 20 20 20 20 28 6c 65 | 74 20 28 28 65 72 72 20 |.    (le|t ((err |
|00001da0| 28 63 63 6c 3a 72 65 67 | 69 73 74 65 72 2d 74 72 |(ccl:reg|ister-tr|
|00001db0| 61 70 20 23 78 41 30 30 | 32 20 3a 61 30 20 70 62 |ap #xA00|2 :a0 pb|
|00001dc0| 20 28 3a 73 69 67 6e 65 | 64 2d 69 6e 74 65 67 65 | (:signe|d-intege|
|00001dd0| 72 20 3a 64 30 29 29 29 | 0d 20 20 20 20 20 20 20 |r :d0)))|.       |
|00001de0| 20 20 20 28 74 72 61 6e | 73 66 65 72 72 65 64 20 |   (tran|sferred |
|00001df0| 28 63 63 6c 3a 72 72 65 | 66 20 70 62 20 3a 68 70 |(ccl:rre|f pb :hp|
|00001e00| 61 72 61 6d 62 6c 6f 63 | 6b 72 65 63 2e 69 6f 41 |arambloc|krec.ioA|
|00001e10| 63 74 43 6f 75 6e 74 29 | 29 29 0d 20 20 20 20 20 |ctCount)|)).     |
|00001e20| 20 28 75 6e 6c 65 73 73 | 20 28 7a 65 72 6f 70 20 | (unless| (zerop |
|00001e30| 65 72 72 29 20 0d 20 20 | 20 20 20 20 20 20 28 75 |err) .  |      (u|
|00001e40| 6e 6c 65 73 73 20 28 3d | 20 65 72 72 20 2d 33 39 |nless (=| err -39|
|00001e50| 29 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |)       |      ; |
|00001e60| 65 6f 66 45 72 72 20 3d | 20 2d 33 39 0d 20 20 20 |eofErr =| -39.   |
|00001e70| 20 20 20 20 20 20 20 28 | 65 72 72 6f 72 20 22 4f |       (|error "O|
|00001e80| 53 20 65 72 72 6f 72 20 | 7e 44 20 72 65 61 64 69 |S error |~D readi|
|00001e90| 6e 67 20 66 69 6c 65 22 | 20 65 72 72 29 29 29 0d |ng file"| err))).|
|00001ea0| 20 20 20 20 20 20 28 73 | 65 74 71 20 2a 73 6f 72 |      (s|etq *sor|
|00001eb0| 74 6d 61 69 6c 2d 62 75 | 66 66 65 72 2d 70 6f 73 |tmail-bu|ffer-pos|
|00001ec0| 69 74 69 6f 6e 2a 20 30 | 29 0d 20 20 20 20 20 20 |ition* 0|).      |
|00001ed0| 28 69 6e 63 66 20 2a 73 | 6f 72 74 6d 61 69 6c 2d |(incf *s|ortmail-|
|00001ee0| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 70 6f 73 69 |buffer-f|ile-posi|
|00001ef0| 74 69 6f 6e 2a 20 2a 73 | 6f 72 74 6d 61 69 6c 2d |tion* *s|ortmail-|
|00001f00| 62 75 66 66 65 72 2d 66 | 69 6c 6c 2d 70 6f 69 6e |buffer-f|ill-poin|
|00001f10| 74 65 72 2a 29 0d 20 20 | 20 20 20 20 28 73 65 74 |ter*).  |    (set|
|00001f20| 71 20 2a 73 6f 72 74 6d | 61 69 6c 2d 62 75 66 66 |q *sortm|ail-buff|
|00001f30| 65 72 2d 66 69 6c 6c 2d | 70 6f 69 6e 74 65 72 2a |er-fill-|pointer*|
|00001f40| 20 74 72 61 6e 73 66 65 | 72 72 65 64 29 0d 20 20 | transfe|rred).  |
|00001f50| 20 20 20 20 28 3e 20 74 | 72 61 6e 73 66 65 72 72 |    (> t|ransferr|
|00001f60| 65 64 20 30 29 29 29 29 | 0d 0d 0d 3b 3b 3b 20 55 |ed 0))))|...;;; U|
|00001f70| 74 69 6c 69 74 69 65 73 | 0d 0d 28 65 76 61 6c 2d |tilities|..(eval-|
|00001f80| 77 68 65 6e 20 28 63 6f | 6d 70 69 6c 65 20 65 76 |when (co|mpile ev|
|00001f90| 61 6c 29 0d 28 64 65 66 | 6d 61 63 72 6f 20 68 65 |al).(def|macro he|
|00001fa0| 61 64 65 72 2d 63 61 73 | 65 20 28 26 72 65 73 74 |ader-cas|e (&rest|
|00001fb0| 20 63 6c 61 75 73 65 73 | 29 0d 20 20 3b 3b 20 4d | clauses|).  ;; M|
|00001fc0| 61 6b 65 20 73 75 72 65 | 20 74 68 61 74 20 6d 79 |ake sure| that my|
|00001fd0| 20 6e 6f 2d 62 61 63 6b | 75 70 20 70 61 72 73 65 | no-back|up parse|
|00001fe0| 72 20 77 69 6c 6c 20 77 | 6f 72 6b 0d 20 20 28 6c |r will w|ork.  (l|
|00001ff0| 6f 6f 70 20 66 6f 72 20 | 28 63 6c 61 75 73 65 20 |oop for |(clause |
|00002000| 2e 20 72 65 73 74 29 20 | 6f 6e 20 63 6c 61 75 73 |. rest) |on claus|
|00002010| 65 73 0d 20 20 20 20 20 | 20 20 20 61 73 20 6b 65 |es.     |   as ke|
|00002020| 79 20 3d 20 28 63 68 61 | 72 20 28 66 69 72 73 74 |y = (cha|r (first|
|00002030| 20 63 6c 61 75 73 65 29 | 20 30 29 0d 20 20 20 20 | clause)| 0).    |
|00002040| 20 20 20 20 61 73 20 63 | 6f 6e 66 6c 69 63 74 20 |    as c|onflict |
|00002050| 3d 20 28 66 69 6e 64 20 | 6b 65 79 20 72 65 73 74 |= (find |key rest|
|00002060| 20 3a 74 65 73 74 20 23 | 27 63 68 61 72 2d 65 71 | :test #|'char-eq|
|00002070| 75 61 6c 20 3a 6b 65 79 | 20 23 27 28 6c 61 6d 62 |ual :key| #'(lamb|
|00002080| 64 61 20 28 63 6c 61 75 | 73 65 29 0d 20 20 20 20 |da (clau|se).    |
|00002090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000020a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000020b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000020c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 63 68 |        |     (ch|
|000020d0| 61 72 20 28 66 69 72 73 | 74 20 63 6c 61 75 73 65 |ar (firs|t clause|
|000020e0| 29 20 30 29 29 29 0d 20 | 20 20 20 20 20 20 20 64 |) 0))). |       d|
|000020f0| 6f 20 28 77 68 65 6e 20 | 63 6f 6e 66 6c 69 63 74 |o (when |conflict|
|00002100| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 77 |.       |      (w|
|00002110| 61 72 6e 20 22 68 65 61 | 64 65 72 2d 63 61 73 65 |arn "hea|der-case|
|00002120| 20 77 69 6c 6c 20 6e 6f | 74 20 63 6f 72 72 65 63 | will no|t correc|
|00002130| 74 6c 79 20 64 69 73 74 | 69 6e 67 75 69 73 68 20 |tly dist|inguish |
|00002140| 7e 53 20 61 6e 64 20 7e | 53 22 0d 20 20 20 20 20 |~S and ~|S".     |
|00002150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 66 |        |      (f|
|00002160| 69 72 73 74 20 63 6c 61 | 75 73 65 29 20 28 66 69 |irst cla|use) (fi|
|00002170| 72 73 74 20 63 6f 6e 66 | 6c 69 63 74 29 29 29 29 |rst conf|lict))))|
|00002180| 0d 20 20 60 28 6c 65 74 | 20 28 28 2e 66 69 72 73 |.  `(let| ((.firs|
|00002190| 74 2d 63 68 61 72 2e 20 | 28 6e 65 78 74 2d 63 68 |t-char. |(next-ch|
|000021a0| 61 72 29 29 29 0d 20 20 | 20 20 20 28 62 6c 6f 63 |ar))).  |   (bloc|
|000021b0| 6b 20 2e 68 65 61 64 65 | 72 2d 63 61 73 65 2e 0d |k .heade|r-case..|
|000021c0| 20 20 20 20 20 20 20 28 | 63 6f 6e 64 0d 20 20 20 |       (|cond.   |
|000021d0| 20 20 20 20 20 2c 40 28 | 6c 6f 6f 70 20 66 6f 72 |     ,@(|loop for|
|000021e0| 20 28 6b 65 79 20 2e 20 | 66 6f 72 6d 73 29 20 69 | (key . |forms) i|
|000021f0| 6e 20 63 6c 61 75 73 65 | 73 20 63 6f 6c 6c 65 63 |n clause|s collec|
|00002200| 74 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 60 28 |t.      |      `(|
|00002210| 28 63 68 61 72 2d 65 71 | 75 61 6c 20 2e 66 69 72 |(char-eq|ual .fir|
|00002220| 73 74 2d 63 68 61 72 2e | 20 2c 28 63 68 61 72 20 |st-char.| ,(char |
|00002230| 6b 65 79 20 30 29 29 0d | 20 20 20 20 20 20 20 20 |key 0)).|        |
|00002240| 20 20 20 20 20 20 2c 40 | 28 6c 6f 6f 70 20 66 6f |      ,@|(loop fo|
|00002250| 72 20 69 20 66 72 6f 6d | 20 31 20 62 65 6c 6f 77 |r i from| 1 below|
|00002260| 20 28 6c 65 6e 67 74 68 | 20 6b 65 79 29 0d 20 20 | (length| key).  |
|00002270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002280| 20 20 20 20 61 73 20 63 | 68 61 72 20 3d 20 28 63 |    as c|har = (c|
|00002290| 68 61 72 20 6b 65 79 20 | 69 29 0d 20 20 20 20 20 |har key |i).     |
|000022a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000022b0| 20 63 6f 6c 6c 65 63 74 | 20 60 28 75 6e 6c 65 73 | collect| `(unles|
|000022c0| 73 20 28 63 68 61 72 2d | 65 71 75 61 6c 20 28 6e |s (char-|equal (n|
|000022d0| 65 78 74 2d 63 68 61 72 | 29 20 2c 63 68 61 72 29 |ext-char|) ,char)|
|000022e0| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000022f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002300| 20 20 28 73 65 74 2d 66 | 69 6c 65 2d 70 6f 73 69 |  (set-f|ile-posi|
|00002310| 74 69 6f 6e 20 28 2d 20 | 28 66 69 6c 65 2d 70 6f |tion (- |(file-po|
|00002320| 73 69 74 69 6f 6e 29 20 | 2c 28 31 2b 20 69 29 29 |sition) |,(1+ i))|
|00002330| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00002340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002350| 20 20 20 28 72 65 74 75 | 72 6e 2d 66 72 6f 6d 20 |   (retu|rn-from |
|00002360| 2e 68 65 61 64 65 72 2d | 63 61 73 65 2e 20 6e 69 |.header-|case. ni|
|00002370| 6c 29 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |l))).   |        |
|00002380| 20 20 20 2c 40 66 6f 72 | 6d 73 29 29 0d 20 20 20 |   ,@for|ms)).   |
|00002390| 20 20 20 20 20 28 74 20 | 28 75 6e 6e 65 78 74 2d |     (t |(unnext-|
|000023a0| 63 68 61 72 29 20 6e 69 | 6c 29 29 29 29 29 29 0d |char) ni|l)))))).|
|000023b0| 0d 28 65 76 61 6c 2d 77 | 68 65 6e 20 28 63 6f 6d |.(eval-w|hen (com|
|000023c0| 70 69 6c 65 20 65 76 61 | 6c 29 0d 28 64 65 66 6d |pile eva|l).(defm|
|000023d0| 61 63 72 6f 20 77 69 74 | 68 2d 62 75 73 79 2d 64 |acro wit|h-busy-d|
|000023e0| 69 61 6c 6f 67 20 28 26 | 62 6f 64 79 20 62 6f 64 |ialog (&|body bod|
|000023f0| 79 29 0d 20 20 60 28 6c | 65 74 2a 20 28 28 62 75 |y).  `(l|et* ((bu|
|00002400| 73 79 2d 64 69 61 6c 6f | 67 2d 6d 65 73 73 61 67 |sy-dialo|g-messag|
|00002410| 65 2d 76 69 65 77 20 28 | 6d 61 6b 65 2d 64 69 61 |e-view (|make-dia|
|00002420| 6c 6f 67 2d 69 74 65 6d | 20 27 73 74 61 74 69 63 |log-item| 'static|
|00002430| 2d 74 65 78 74 2d 64 69 | 61 6c 6f 67 2d 69 74 65 |-text-di|alog-ite|
|00002440| 6d 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |m.      |        |
|00002450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002470| 20 20 20 20 20 20 20 20 | 23 40 28 32 35 20 32 35 |        |#@(25 25|
|00002480| 29 20 23 40 28 32 37 35 | 20 39 35 29 0d 20 20 20 |) #@(275| 95).   |
|00002490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000024a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000024b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000024c0| 20 20 20 22 22 20 23 27 | 66 61 6c 73 65 0d 20 20 |   "" #'|false.  |
|000024d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000024e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000024f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002500| 20 20 20 20 3a 64 69 61 | 6c 6f 67 2d 69 74 65 6d |    :dia|log-item|
|00002510| 2d 65 6e 61 62 6c 65 64 | 2d 70 20 74 29 29 0d 20 |-enabled|-p t)). |
|00002520| 20 20 20 20 20 20 20 20 | 20 28 62 75 73 79 2d 64 |        | (busy-d|
|00002530| 69 61 6c 6f 67 20 28 6d | 61 6b 65 2d 69 6e 73 74 |ialog (m|ake-inst|
|00002540| 61 6e 63 65 20 27 64 69 | 61 6c 6f 67 20 3a 77 69 |ance 'di|alog :wi|
|00002550| 6e 64 6f 77 2d 74 79 70 | 65 20 3a 64 6f 75 62 6c |ndow-typ|e :doubl|
|00002560| 65 2d 65 64 67 65 2d 62 | 6f 78 0d 20 20 20 20 20 |e-edge-b|ox.     |
|00002570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002580| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002590| 20 20 20 20 20 20 20 20 | 20 3a 76 69 65 77 2d 70 |        | :view-p|
|000025a0| 6f 73 69 74 69 6f 6e 20 | 27 28 3a 74 6f 70 20 36 |osition |'(:top 6|
|000025b0| 30 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0).     |        |
|000025c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000025d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000025e0| 20 3a 76 69 65 77 2d 73 | 69 7a 65 20 23 40 28 33 | :view-s|ize #@(3|
|000025f0| 30 30 20 31 32 30 29 0d | 20 20 20 20 20 20 20 20 |00 120).|        |
|00002600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002620| 20 20 20 20 20 20 3a 63 | 6c 6f 73 65 2d 62 6f 78 |      :c|lose-box|
|00002630| 2d 70 20 6e 69 6c 0d 20 | 20 20 20 20 20 20 20 20 |-p nil. |        |
|00002640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002660| 20 20 20 20 20 3a 76 69 | 65 77 2d 66 6f 6e 74 20 |     :vi|ew-font |
|00002670| 27 28 22 43 68 69 63 61 | 67 6f 22 20 31 32 20 3a |'("Chica|go" 12 :|
|00002680| 73 72 63 6f 72 20 3a 70 | 6c 61 69 6e 29 0d 20 20 |srcor :p|lain).  |
|00002690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000026a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000026b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 76 69 65 |        |    :vie|
|000026c0| 77 2d 73 75 62 76 69 65 | 77 73 20 28 6c 69 73 74 |w-subvie|ws (list|
|000026d0| 20 62 75 73 79 2d 64 69 | 61 6c 6f 67 2d 6d 65 73 | busy-di|alog-mes|
|000026e0| 73 61 67 65 2d 76 69 65 | 77 29 29 29 29 0d 20 20 |sage-vie|w)))).  |
|000026f0| 20 20 20 28 75 6e 77 69 | 6e 64 2d 70 72 6f 74 65 |   (unwi|nd-prote|
|00002700| 63 74 0d 20 20 20 20 20 | 20 20 28 66 6c 65 74 20 |ct.     |  (flet |
|00002710| 28 28 73 68 6f 77 2d 62 | 75 73 79 2d 6d 65 73 73 |((show-b|usy-mess|
|00002720| 61 67 65 20 28 66 6f 72 | 6d 61 74 2d 73 74 72 69 |age (for|mat-stri|
|00002730| 6e 67 20 26 72 65 73 74 | 20 66 6f 72 6d 61 74 2d |ng &rest| format-|
|00002740| 61 72 67 75 6d 65 6e 74 | 73 29 0d 20 20 20 20 20 |argument|s).     |
|00002750| 20 20 20 20 20 20 20 20 | 20 20 20 28 73 65 74 2d |        |   (set-|
|00002760| 64 69 61 6c 6f 67 2d 69 | 74 65 6d 2d 74 65 78 74 |dialog-i|tem-text|
|00002770| 20 62 75 73 79 2d 64 69 | 61 6c 6f 67 2d 6d 65 73 | busy-di|alog-mes|
|00002780| 73 61 67 65 2d 76 69 65 | 77 0d 20 20 20 20 20 20 |sage-vie|w.      |
|00002790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000027a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000027b0| 28 61 70 70 6c 79 20 23 | 27 66 6f 72 6d 61 74 20 |(apply #|'format |
|000027c0| 6e 69 6c 20 66 6f 72 6d | 61 74 2d 73 74 72 69 6e |nil form|at-strin|
|000027d0| 67 20 66 6f 72 6d 61 74 | 2d 61 72 67 75 6d 65 6e |g format|-argumen|
|000027e0| 74 73 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |ts)).   |        |
|000027f0| 20 20 20 20 20 28 76 69 | 65 77 2d 64 72 61 77 2d |     (vi|ew-draw-|
|00002800| 63 6f 6e 74 65 6e 74 73 | 20 62 75 73 79 2d 64 69 |contents| busy-di|
|00002810| 61 6c 6f 67 29 29 29 0d | 20 20 20 20 20 20 20 20 |alog))).|        |
|00002820| 20 28 77 69 6e 64 6f 77 | 2d 73 68 6f 77 20 62 75 | (window|-show bu|
|00002830| 73 79 2d 64 69 61 6c 6f | 67 29 0d 20 20 20 20 20 |sy-dialo|g).     |
|00002840| 20 20 20 20 28 73 65 74 | 2d 63 75 72 73 6f 72 20 |    (set|-cursor |
|00002850| 2a 77 61 74 63 68 2d 63 | 75 72 73 6f 72 2a 29 0d |*watch-c|ursor*).|
|00002860| 20 20 20 20 20 20 20 20 | 20 28 65 76 65 6e 74 2d |        | (event-|
|00002870| 64 69 73 70 61 74 63 68 | 29 0d 20 20 20 20 20 20 |dispatch|).      |
|00002880| 20 20 20 2c 40 62 6f 64 | 79 29 0d 20 20 20 20 20 |   ,@bod|y).     |
|00002890| 20 20 28 77 69 6e 64 6f | 77 2d 63 6c 6f 73 65 20 |  (windo|w-close |
|000028a0| 62 75 73 79 2d 64 69 61 | 6c 6f 67 29 0d 20 20 20 |busy-dia|log).   |
|000028b0| 20 20 20 20 28 73 65 74 | 2d 63 75 72 73 6f 72 20 |    (set|-cursor |
|000028c0| 2a 61 72 72 6f 77 2d 63 | 75 72 73 6f 72 2a 29 29 |*arrow-c|ursor*))|
|000028d0| 29 29 29 0d 0d 0d 3b 3b | 3b 20 4d 61 69 6c 20 66 |)))...;;|; Mail f|
|000028e0| 69 6c 65 20 72 6f 75 74 | 69 6e 65 73 0d 0d 28 64 |ile rout|ines..(d|
|000028f0| 65 66 76 61 72 20 2a 64 | 65 66 61 75 6c 74 2d 6d |efvar *d|efault-m|
|00002900| 61 69 6c 2d 66 69 6c 65 | 2d 64 69 72 65 63 74 6f |ail-file|-directo|
|00002910| 72 79 2a 20 22 4d 61 69 | 6c 3a 22 29 0d 0d 28 64 |ry* "Mai|l:")..(d|
|00002920| 65 66 75 6e 20 63 68 6f | 6f 73 65 2d 6d 61 69 6c |efun cho|ose-mail|
|00002930| 2d 66 69 6c 65 20 28 26 | 6b 65 79 20 28 62 75 74 |-file (&|key (but|
|00002940| 74 6f 6e 2d 73 74 72 69 | 6e 67 20 22 4f 70 65 6e |ton-stri|ng "Open|
|00002950| 22 29 29 0d 20 20 28 6c | 65 74 2a 20 28 28 64 65 |")).  (l|et* ((de|
|00002960| 66 61 75 6c 74 2d 76 6f | 6c 75 6d 65 20 28 73 65 |fault-vo|lume (se|
|00002970| 63 6f 6e 64 20 28 70 61 | 74 68 6e 61 6d 65 2d 64 |cond (pa|thname-d|
|00002980| 69 72 65 63 74 6f 72 79 | 20 28 6d 61 63 2d 64 65 |irectory| (mac-de|
|00002990| 66 61 75 6c 74 2d 64 69 | 72 65 63 74 6f 72 79 29 |fault-di|rectory)|
|000029a0| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 28 6d 61 |))).    |     (ma|
|000029b0| 69 6c 2d 64 69 72 65 63 | 74 6f 72 79 20 28 6d 61 |il-direc|tory (ma|
|000029c0| 6b 65 2d 70 61 74 68 6e | 61 6d 65 20 3a 64 65 66 |ke-pathn|ame :def|
|000029d0| 61 75 6c 74 73 20 28 6d | 61 63 2d 64 65 66 61 75 |aults (m|ac-defau|
|000029e0| 6c 74 2d 64 69 72 65 63 | 74 6f 72 79 29 0d 20 20 |lt-direc|tory).  |
|000029f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002a10| 20 20 20 20 20 20 3a 64 | 69 72 65 63 74 6f 72 79 |      :d|irectory|
|00002a20| 20 28 63 6f 6e 63 61 74 | 65 6e 61 74 65 20 27 73 | (concat|enate 's|
|00002a30| 74 72 69 6e 67 20 64 65 | 66 61 75 6c 74 2d 76 6f |tring de|fault-vo|
|00002a40| 6c 75 6d 65 20 22 3a 22 | 0d 20 20 20 20 20 20 20 |lume ":"|.       |
|00002a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002a60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002a80| 20 20 20 20 20 20 20 20 | 20 2a 64 65 66 61 75 6c |        | *defaul|
|00002a90| 74 2d 6d 61 69 6c 2d 66 | 69 6c 65 2d 64 69 72 65 |t-mail-f|ile-dire|
|00002aa0| 63 74 6f 72 79 2a 29 29 | 29 29 0d 20 20 20 20 28 |ctory*))|)).    (|
|00002ab0| 75 6e 6c 65 73 73 20 28 | 70 72 6f 62 65 2d 66 69 |unless (|probe-fi|
|00002ac0| 6c 65 20 6d 61 69 6c 2d | 64 69 72 65 63 74 6f 72 |le mail-|director|
|00002ad0| 79 29 0d 20 20 20 20 20 | 20 28 73 65 74 71 20 6d |y).     | (setq m|
|00002ae0| 61 69 6c 2d 64 69 72 65 | 63 74 6f 72 79 20 28 6d |ail-dire|ctory (m|
|00002af0| 61 6b 65 2d 70 61 74 68 | 6e 61 6d 65 20 3a 64 65 |ake-path|name :de|
|00002b00| 66 61 75 6c 74 73 20 28 | 6d 61 63 2d 64 65 66 61 |faults (|mac-defa|
|00002b10| 75 6c 74 2d 64 69 72 65 | 63 74 6f 72 79 29 0d 20 |ult-dire|ctory). |
|00002b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002b40| 20 20 20 20 20 20 20 20 | 20 3a 64 69 72 65 63 74 |        | :direct|
|00002b50| 6f 72 79 20 28 63 6f 6e | 63 61 74 65 6e 61 74 65 |ory (con|catenate|
|00002b60| 20 27 73 74 72 69 6e 67 | 20 64 65 66 61 75 6c 74 | 'string| default|
|00002b70| 2d 76 6f 6c 75 6d 65 20 | 22 3a 22 29 29 29 29 0d |-volume |":")))).|
|00002b80| 20 20 20 20 28 63 68 6f | 6f 73 65 2d 66 69 6c 65 |    (cho|ose-file|
|00002b90| 2d 64 69 61 6c 6f 67 20 | 3a 6d 61 63 2d 66 69 6c |-dialog |:mac-fil|
|00002ba0| 65 2d 74 79 70 65 20 27 | 28 3a 6d 69 74 6d 20 3a |e-type '|(:mitm :|
|00002bb0| 74 65 78 74 29 0d 20 20 | 20 20 20 20 20 20 20 20 |text).  |        |
|00002bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a 64 |        |      :d|
|00002bd0| 69 72 65 63 74 6f 72 79 | 20 6d 61 69 6c 2d 64 69 |irectory| mail-di|
|00002be0| 72 65 63 74 6f 72 79 0d | 20 20 20 20 20 20 20 20 |rectory.|        |
|00002bf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002c00| 3a 62 75 74 74 6f 6e 2d | 73 74 72 69 6e 67 20 62 |:button-|string b|
|00002c10| 75 74 74 6f 6e 2d 73 74 | 72 69 6e 67 29 29 29 0d |utton-st|ring))).|
|00002c20| 0d 3b 3b 3b 20 50 61 72 | 73 65 20 74 68 65 20 6d |.;;; Par|se the m|
|00002c30| 61 69 6c 20 66 69 6c 65 | 20 74 68 61 74 20 69 73 |ail file| that is|
|00002c40| 20 61 6c 72 65 61 64 79 | 20 6f 70 65 6e 20 61 6e | already| open an|
|00002c50| 64 20 72 65 77 6f 75 6e | 64 2c 20 72 65 74 75 72 |d rewoun|d, retur|
|00002c60| 6e 69 6e 67 20 6d 65 73 | 73 61 67 65 73 20 69 6e |ning mes|sages in|
|00002c70| 20 6f 72 64 65 72 0d 3b | 3b 3b 20 52 65 74 75 72 | order.;|;; Retur|
|00002c80| 6e 73 20 28 28 70 6f 73 | 69 74 69 6f 6e 20 73 69 |ns ((pos|ition si|
|00002c90| 7a 65 20 64 61 74 65 20 | 73 75 62 6a 65 63 74 29 |ze date |subject)|
|00002ca0| 2e 2e 2e 29 2e 20 20 4c | 65 61 76 65 73 20 66 69 |...).  L|eaves fi|
|00002cb0| 6c 65 20 61 74 20 65 6f | 66 2e 0d 3b 3b 3b 20 53 |le at eo|f..;;; S|
|00002cc0| 69 7a 65 20 64 6f 65 73 | 20 6e 6f 74 20 69 6e 63 |ize does| not inc|
|00002cd0| 6c 75 64 65 20 23 5c 70 | 61 67 65 20 23 5c 6e 65 |lude #\p|age #\ne|
|00002ce0| 77 6c 69 6e 65 20 61 66 | 74 65 72 20 74 68 65 20 |wline af|ter the |
|00002cf0| 6d 65 73 73 61 67 65 2d | 73 65 70 61 72 61 74 6f |message-|separato|
|00002d00| 72 20 63 68 61 72 61 63 | 74 65 72 2e 0d 3b 3b 3b |r charac|ter..;;;|
|00002d10| 20 54 68 65 20 66 69 72 | 73 74 20 22 6d 65 73 73 | The fir|st "mess|
|00002d20| 61 67 65 22 20 69 73 20 | 74 68 65 20 66 69 6c 65 |age" is |the file|
|00002d30| 20 68 65 61 64 65 72 2e | 0d 28 64 65 66 75 6e 20 | header.|.(defun |
|00002d40| 70 61 72 73 65 2d 6d 61 | 69 6c 2d 66 69 6c 65 20 |parse-ma|il-file |
|00002d50| 28 29 0d 20 20 28 77 69 | 74 68 2d 73 6f 72 74 6d |().  (wi|th-sortm|
|00002d60| 61 69 6c 2d 62 75 66 66 | 65 72 0d 20 20 20 20 28 |ail-buff|er.    (|
|00002d70| 6c 65 74 20 28 28 6d 65 | 73 73 61 67 65 73 20 6e |let ((me|ssages n|
|00002d80| 69 6c 29 0d 20 20 20 20 | 20 20 20 20 20 20 28 70 |il).    |      (p|
|00002d90| 6f 73 69 74 69 6f 6e 20 | 30 29 0d 20 20 20 20 20 |osition |0).     |
|00002da0| 20 20 20 20 20 28 73 74 | 61 72 74 2d 70 6f 73 69 |     (st|art-posi|
|00002db0| 74 69 6f 6e 20 30 29 0d | 20 20 20 20 20 20 20 20 |tion 0).|        |
|00002dc0| 20 20 28 73 69 7a 65 20 | 30 29 0d 20 20 20 20 20 |  (size |0).     |
|00002dd0| 20 20 20 20 20 28 64 61 | 74 65 20 30 29 0d 20 20 |     (da|te 0).  |
|00002de0| 20 20 20 20 20 20 20 20 | 28 73 75 62 6a 65 63 74 |        |(subject|
|00002df0| 20 6e 69 6c 29 29 0d 20 | 20 20 20 20 20 28 6c 61 | nil)). |     (la|
|00002e00| 62 65 6c 73 20 28 28 6e | 65 78 74 2d 6d 65 73 73 |bels ((n|ext-mess|
|00002e10| 61 67 65 20 28 29 20 20 | 20 20 20 20 20 20 20 20 |age ()  |        |
|00002e20| 20 3b 20 52 65 74 75 72 | 6e 73 20 74 20 69 66 20 | ; Retur|ns t if |
|00002e30| 72 65 61 63 68 65 64 20 | 45 4f 46 0d 20 20 20 20 |reached |EOF.    |
|00002e40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 75 73 |        |     (us|
|00002e50| 69 6e 67 2d 73 6f 72 74 | 6d 61 69 6c 2d 62 75 66 |ing-sort|mail-buf|
|00002e60| 66 65 72 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |fer.    |        |
|00002e70| 20 20 20 20 20 20 20 28 | 70 72 6f 67 31 20 28 6c |       (|prog1 (l|
|00002e80| 6f 6f 70 20 61 73 20 63 | 68 61 72 20 3d 20 28 6e |oop as c|har = (n|
|00002e90| 65 78 74 2d 63 68 61 72 | 29 20 64 6f 20 20 20 20 |ext-char|) do    |
|00002ea0| 20 20 20 3b 20 46 69 72 | 73 74 20 63 68 61 72 61 |   ; Fir|st chara|
|00002eb0| 63 74 65 72 20 6f 6e 20 | 6c 69 6e 65 0d 20 20 20 |cter on |line.   |
|00002ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002ed0| 20 20 20 20 20 20 20 20 | 20 28 77 68 65 6e 20 28 |        | (when (|
|00002ee0| 65 71 20 63 68 61 72 20 | 3a 65 6f 66 29 20 28 72 |eq char |:eof) (r|
|00002ef0| 65 74 75 72 6e 20 74 29 | 29 0d 20 20 20 20 20 20 |eturn t)|).      |
|00002f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002f10| 20 20 20 20 20 20 28 77 | 68 65 6e 20 28 65 71 20 |      (w|hen (eq |
|00002f20| 63 68 61 72 20 2b 6d 65 | 73 73 61 67 65 2d 73 65 |char +me|ssage-se|
|00002f30| 70 61 72 61 74 6f 72 2d | 63 68 61 72 61 63 74 65 |parator-|characte|
|00002f40| 72 2b 29 20 20 20 20 20 | 20 3b 20 63 68 61 72 3d |r+)     | ; char=|
|00002f50| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00002f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00002f70| 73 65 74 71 20 63 68 61 | 72 20 28 6e 65 78 74 2d |setq cha|r (next-|
|00002f80| 63 68 61 72 29 29 0d 20 | 20 20 20 20 20 20 20 20 |char)). |        |
|00002f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002fa0| 20 20 20 20 20 28 77 68 | 65 6e 20 28 65 71 20 63 |     (wh|en (eq c|
|00002fb0| 68 61 72 20 3a 65 6f 66 | 29 20 28 72 65 74 75 72 |har :eof|) (retur|
|00002fc0| 6e 20 74 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |n t)).  |        |
|00002fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002fe0| 20 20 20 20 28 77 68 65 | 6e 20 28 65 71 20 63 68 |    (whe|n (eq ch|
|00002ff0| 61 72 20 23 5c 50 61 67 | 65 29 20 20 20 20 20 20 |ar #\Pag|e)      |
|00003000| 20 20 20 20 20 3b 20 63 | 68 61 72 3d 0d 20 20 20 |     ; c|har=.   |
|00003010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 6e 65 |        |     (ne|
|00003030| 78 74 2d 63 68 61 72 29 | 20 20 20 20 3b 20 53 68 |xt-char)|    ; Sh|
|00003040| 6f 75 6c 64 20 62 65 20 | 6e 65 77 6c 69 6e 65 0d |ould be |newline.|
|00003050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003070| 28 72 65 74 75 72 6e 20 | 6e 69 6c 29 29 29 0d 20 |(return |nil))). |
|00003080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003090| 20 20 20 20 20 20 20 20 | 20 20 20 28 75 6e 6c 65 |        |   (unle|
|000030a0| 73 73 20 28 65 71 20 63 | 68 61 72 20 23 5c 4e 65 |ss (eq c|har #\Ne|
|000030b0| 77 6c 69 6e 65 29 20 20 | 20 20 20 20 20 20 3b 20 |wline)  |      ; |
|000030c0| 63 68 61 72 3d 0d 20 20 | 20 20 20 20 20 20 20 20 |char=.  |        |
|000030d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000030e0| 20 20 20 20 28 6e 65 78 | 74 2d 6c 69 6e 65 29 29 |    (nex|t-line))|
|000030f0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00003100| 20 20 20 20 20 20 20 28 | 73 65 74 71 20 70 6f 73 |       (|setq pos|
|00003110| 69 74 69 6f 6e 20 28 66 | 69 6c 65 2d 70 6f 73 69 |ition (f|ile-posi|
|00003120| 74 69 6f 6e 29 29 29 29 | 29 0d 20 20 20 20 20 20 |tion))))|).      |
|00003130| 20 20 20 20 20 20 20 20 | 20 28 70 61 72 73 65 2d |        | (parse-|
|00003140| 68 65 61 64 65 72 20 28 | 29 0d 20 20 20 20 20 20 |header (|).      |
|00003150| 20 20 20 20 20 20 20 20 | 20 20 20 28 73 65 74 71 |        |   (setq|
|00003160| 20 64 61 74 65 20 30 20 | 73 75 62 6a 65 63 74 20 | date 0 |subject |
|00003170| 6e 69 6c 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |nil).   |        |
|00003180| 20 20 20 20 20 20 28 75 | 73 69 6e 67 2d 73 6f 72 |      (u|sing-sor|
|00003190| 74 6d 61 69 6c 2d 62 75 | 66 66 65 72 0d 20 20 20 |tmail-bu|ffer.   |
|000031a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000031b0| 28 6c 6f 6f 70 20 64 6f | 0d 20 20 20 20 20 20 20 |(loop do|.       |
|000031c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 68 |        |      (h|
|000031d0| 65 61 64 65 72 2d 63 61 | 73 65 0d 20 20 20 20 20 |eader-ca|se.     |
|000031e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000031f0| 20 28 22 44 61 74 65 3a | 22 0d 20 20 20 20 20 20 | ("Date:|".      |
|00003200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003210| 20 28 73 65 74 71 20 64 | 61 74 65 20 28 70 61 72 | (setq d|ate (par|
|00003220| 73 65 2d 6d 73 67 2d 64 | 61 74 65 20 0d 20 20 20 |se-msg-d|ate .   |
|00003230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003250| 28 6c 6f 6f 70 20 77 69 | 74 68 20 6c 69 6e 65 20 |(loop wi|th line |
|00003260| 3d 20 28 6d 61 6b 65 2d | 61 72 72 61 79 20 31 30 |= (make-|array 10|
|00003270| 30 20 3a 65 6c 65 6d 65 | 6e 74 2d 74 79 70 65 20 |0 :eleme|nt-type |
|00003280| 27 62 61 73 65 2d 63 68 | 61 72 61 63 74 65 72 0d |'base-ch|aracter.|
|00003290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000032a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000032b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000032c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000032d0| 20 20 20 20 20 3a 61 64 | 6a 75 73 74 61 62 6c 65 |     :ad|justable|
|000032e0| 20 74 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | t).    |        |
|000032f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 77 69 74 |        |     wit|
|00003310| 68 20 69 6e 64 65 78 20 | 3d 20 30 0d 20 20 20 20 |h index |= 0.    |
|00003320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003340| 20 20 20 20 20 61 73 20 | 63 68 61 72 20 3d 20 28 |     as |char = (|
|00003350| 6e 65 78 74 2d 63 68 61 | 72 29 0d 20 20 20 20 20 |next-cha|r).     |
|00003360| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003370| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003380| 20 20 20 20 75 6e 74 69 | 6c 20 28 6f 72 20 28 65 |    unti|l (or (e|
|00003390| 71 20 63 68 61 72 20 3a | 65 6f 66 29 20 28 65 71 |q char :|eof) (eq|
|000033a0| 20 63 68 61 72 20 23 5c | 4e 65 77 6c 69 6e 65 29 | char #\|Newline)|
|000033b0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|000033c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000033d0| 20 20 20 20 20 20 20 20 | 20 20 20 64 6f 20 28 77 |        |   do (w|
|000033e0| 68 65 6e 20 28 3c 20 69 | 6e 64 65 78 20 31 30 30 |hen (< i|ndex 100|
|000033f0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00003400| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003420| 28 73 65 74 66 20 28 61 | 72 65 66 20 6c 69 6e 65 |(setf (a|ref line|
|00003430| 20 69 6e 64 65 78 29 20 | 63 68 61 72 29 0d 20 20 | index) |char).  |
|00003440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003460| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 69 6e 63 |        |    (inc|
|00003470| 66 20 69 6e 64 65 78 29 | 29 0d 20 20 20 20 20 20 |f index)|).      |
|00003480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000034a0| 20 20 20 66 69 6e 61 6c | 6c 79 0d 20 20 20 20 20 |   final|ly.     |
|000034b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000034c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000034d0| 20 20 20 20 20 20 28 72 | 65 74 75 72 6e 20 28 61 |      (r|eturn (a|
|000034e0| 64 6a 75 73 74 2d 61 72 | 72 61 79 20 6c 69 6e 65 |djust-ar|ray line|
|000034f0| 20 69 6e 64 65 78 29 29 | 29 29 29 29 0d 20 20 20 | index))|)))).   |
|00003500| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003510| 20 20 20 28 22 53 75 62 | 6a 65 63 74 3a 22 0d 20 |   ("Sub|ject:". |
|00003520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003530| 20 20 20 20 20 20 3b 3b | 20 53 6b 69 70 20 22 52 |      ;;| Skip "R|
|00003540| 65 22 20 6f 72 20 22 49 | 73 73 75 65 22 2c 20 70 |e" or "I|ssue", p|
|00003550| 75 6e 63 74 75 61 74 69 | 6f 6e 2c 20 77 68 69 74 |unctuati|on, whit|
|00003560| 65 73 70 61 63 65 0d 20 | 20 20 20 20 20 20 20 20 |espace. |        |
|00003570| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 6c |        |      (l|
|00003580| 6f 6f 70 20 64 6f 69 6e | 67 0d 20 20 20 20 20 20 |oop doin|g.      |
|00003590| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000035a0| 20 20 20 28 6c 6f 6f 70 | 20 61 73 20 63 68 61 72 |   (loop| as char|
|000035b0| 20 3d 20 28 6e 65 78 74 | 2d 63 68 61 72 29 0d 20 | = (next|-char). |
|000035c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000035d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 77 68 |        |      wh|
|000035e0| 69 6c 65 20 28 6d 65 6d | 62 65 72 20 63 68 61 72 |ile (mem|ber char|
|000035f0| 20 27 28 23 5c 73 70 61 | 63 65 20 23 5c 74 61 62 | '(#\spa|ce #\tab|
|00003600| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |))).    |        |
|00003610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 75 6e |        |     (un|
|00003620| 6e 65 78 74 2d 63 68 61 | 72 29 0d 20 20 20 20 20 |next-cha|r).     |
|00003630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003640| 20 20 20 20 28 75 6e 6c | 65 73 73 20 28 68 65 61 |    (unl|ess (hea|
|00003650| 64 65 72 2d 63 61 73 65 | 20 28 22 52 65 22 20 74 |der-case| ("Re" t|
|00003660| 29 20 28 22 49 73 73 75 | 65 3a 22 20 74 29 29 20 |) ("Issu|e:" t)) |
|00003670| 28 72 65 74 75 72 6e 29 | 29 0d 20 20 20 20 20 20 |(return)|).      |
|00003680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003690| 20 20 20 28 6c 6f 6f 70 | 20 61 73 20 63 68 61 72 |   (loop| as char|
|000036a0| 20 3d 20 28 6e 65 78 74 | 2d 63 68 61 72 29 0d 20 | = (next|-char). |
|000036b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000036c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 77 68 |        |      wh|
|000036d0| 69 6c 65 20 28 6d 65 6d | 62 65 72 20 63 68 61 72 |ile (mem|ber char|
|000036e0| 20 27 28 23 5c 3a 20 23 | 5c 3e 20 23 5c 2d 29 29 | '(#\: #|\> #\-))|
|000036f0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00003700| 20 20 20 20 20 20 20 20 | 20 20 20 28 75 6e 6e 65 |        |   (unne|
|00003710| 78 74 2d 63 68 61 72 29 | 29 0d 20 20 20 20 20 20 |xt-char)|).      |
|00003720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003730| 20 28 73 65 74 71 20 73 | 75 62 6a 65 63 74 20 28 | (setq s|ubject (|
|00003740| 6d 61 6b 65 2d 61 72 72 | 61 79 20 31 30 30 20 3a |make-arr|ay 100 :|
|00003750| 65 6c 65 6d 65 6e 74 2d | 74 79 70 65 20 27 62 61 |element-|type 'ba|
|00003760| 73 65 2d 63 68 61 72 61 | 63 74 65 72 0d 20 20 20 |se-chara|cter.   |
|00003770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000037a0| 20 20 3a 61 64 6a 75 73 | 74 61 62 6c 65 20 74 29 |  :adjus|table t)|
|000037b0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|000037c0| 20 20 20 20 20 20 20 20 | 20 28 6c 6f 6f 70 20 77 |        | (loop w|
|000037d0| 69 74 68 20 69 6e 64 65 | 78 20 3d 20 30 0d 20 20 |ith inde|x = 0.  |
|000037e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000037f0| 20 20 20 20 20 20 20 20 | 20 20 20 61 73 20 63 68 |        |   as ch|
|00003800| 61 72 20 3d 20 28 6e 65 | 78 74 2d 63 68 61 72 29 |ar = (ne|xt-char)|
|00003810| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 75 6e |        |      un|
|00003830| 74 69 6c 20 28 6f 72 20 | 28 65 71 20 63 68 61 72 |til (or |(eq char|
|00003840| 20 3a 65 6f 66 29 20 28 | 65 71 20 63 68 61 72 20 | :eof) (|eq char |
|00003850| 23 5c 4e 65 77 6c 69 6e | 65 29 29 0d 20 20 20 20 |#\Newlin|e)).    |
|00003860| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003870| 20 20 20 20 20 20 20 20 | 20 64 6f 20 28 77 68 65 |        | do (whe|
|00003880| 6e 20 28 3c 20 69 6e 64 | 65 78 20 31 30 30 29 0d |n (< ind|ex 100).|
|00003890| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000038a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000038b0| 20 20 28 73 65 74 66 20 | 28 61 72 65 66 20 73 75 |  (setf |(aref su|
|000038c0| 62 6a 65 63 74 20 69 6e | 64 65 78 29 20 63 68 61 |bject in|dex) cha|
|000038d0| 72 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |r).     |        |
|000038e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000038f0| 20 20 20 20 20 28 69 6e | 63 66 20 69 6e 64 65 78 |     (in|cf index|
|00003900| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).     |        |
|00003910| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003920| 66 69 6e 61 6c 6c 79 0d | 20 20 20 20 20 20 20 20 |finally.|        |
|00003930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003940| 20 20 20 20 20 20 20 28 | 73 65 74 71 20 73 75 62 |       (|setq sub|
|00003950| 6a 65 63 74 20 28 73 75 | 62 73 65 71 20 73 75 62 |ject (su|bseq sub|
|00003960| 6a 65 63 74 20 30 20 69 | 6e 64 65 78 29 29 29 29 |ject 0 i|ndex))))|
|00003970| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00003980| 20 20 20 20 20 20 20 28 | 22 2a 2a 2a 20 45 4f 4f |       (|"*** EOO|
|00003990| 48 20 2a 2a 2a 22 20 28 | 72 65 74 75 72 6e 29 29 |H ***" (|return))|
|000039a0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|000039b0| 20 20 20 20 20 20 20 28 | 6e 65 78 74 2d 6c 69 6e |       (|next-lin|
|000039c0| 65 29 29 29 29 29 0d 20 | 20 20 20 20 20 20 20 28 |e))))). |       (|
|000039d0| 6c 6f 6f 70 20 61 73 20 | 6c 61 73 74 20 3d 20 28 |loop as |last = (|
|000039e0| 6e 65 78 74 2d 6d 65 73 | 73 61 67 65 29 20 20 3b |next-mes|sage)  ;|
|000039f0| 20 46 69 72 73 74 20 74 | 69 6d 65 2c 20 74 68 69 | First t|ime, thi|
|00003a00| 73 20 73 6b 69 70 73 20 | 74 68 65 20 66 69 6c 65 |s skips |the file|
|00003a10| 20 68 65 61 64 65 72 0d | 20 20 20 20 20 20 20 20 | header.|        |
|00003a20| 20 20 20 20 20 20 61 73 | 20 66 69 72 73 74 20 3d |      as| first =|
|00003a30| 20 74 20 74 68 65 6e 20 | 6e 69 6c 20 64 6f 0d 20 | t then |nil do. |
|00003a40| 20 20 20 20 20 20 20 20 | 20 28 75 6e 6c 65 73 73 |        | (unless|
|00003a50| 20 66 69 72 73 74 20 20 | 20 20 20 20 20 20 20 20 | first  |        |
|00003a60| 20 20 20 20 20 20 20 3b | 20 4e 6f 77 20 77 65 20 |       ;| Now we |
|00003a70| 6b 6e 6f 77 20 74 68 65 | 20 73 69 7a 65 20 6f 66 |know the| size of|
|00003a80| 20 74 68 65 20 70 72 65 | 63 65 64 69 6e 67 20 6d | the pre|ceding m|
|00003a90| 65 73 73 61 67 65 0d 20 | 20 20 20 20 20 20 20 20 |essage. |        |
|00003aa0| 20 20 20 28 73 65 74 71 | 20 73 69 7a 65 20 28 2d |   (setq| size (-|
|00003ab0| 20 70 6f 73 69 74 69 6f | 6e 20 73 74 61 72 74 2d | positio|n start-|
|00003ac0| 70 6f 73 69 74 69 6f 6e | 20 28 69 66 20 6c 61 73 |position| (if las|
|00003ad0| 74 20 30 20 32 29 29 29 | 0d 20 20 20 20 20 20 20 |t 0 2)))|.       |
|00003ae0| 20 20 20 20 20 28 70 75 | 73 68 20 28 6c 69 73 74 |     (pu|sh (list|
|00003af0| 20 73 74 61 72 74 2d 70 | 6f 73 69 74 69 6f 6e 20 | start-p|osition |
|00003b00| 73 69 7a 65 20 64 61 74 | 65 20 73 75 62 6a 65 63 |size dat|e subjec|
|00003b10| 74 29 20 6d 65 73 73 61 | 67 65 73 29 29 0d 20 20 |t) messa|ges)).  |
|00003b20| 20 20 20 20 20 20 20 20 | 28 77 68 65 6e 20 6c 61 |        |(when la|
|00003b30| 73 74 20 28 72 65 74 75 | 72 6e 29 29 0d 20 20 20 |st (retu|rn)).   |
|00003b40| 20 20 20 20 20 20 20 28 | 73 65 74 71 20 73 74 61 |       (|setq sta|
|00003b50| 72 74 2d 70 6f 73 69 74 | 69 6f 6e 20 70 6f 73 69 |rt-posit|ion posi|
|00003b60| 74 69 6f 6e 29 0d 20 20 | 20 20 20 20 20 20 20 20 |tion).  |        |
|00003b70| 28 70 61 72 73 65 2d 68 | 65 61 64 65 72 29 29 0d |(parse-h|eader)).|
|00003b80| 20 20 20 20 20 20 20 20 | 28 6e 72 65 76 65 72 73 |        |(nrevers|
|00003b90| 65 20 6d 65 73 73 61 67 | 65 73 29 29 29 29 29 0d |e messag|es))))).|
|00003ba0| 0d 3b 3b 3b 20 49 74 20 | 77 61 73 20 74 6f 6f 20 |.;;; It |was too |
|00003bb0| 68 61 72 64 20 74 6f 20 | 77 72 69 74 65 20 74 68 |hard to |write th|
|00003bc0| 69 73 20 77 69 74 68 6f | 75 74 20 74 68 65 20 73 |is witho|ut the s|
|00003bd0| 74 72 69 6e 67 20 63 6f | 6e 73 69 6e 67 2c 0d 3b |tring co|nsing,.;|
|00003be0| 3b 3b 20 49 20 68 6f 70 | 65 20 69 74 20 77 69 6c |;; I hop|e it wil|
|00003bf0| 6c 20 62 65 20 66 61 73 | 74 20 65 6e 6f 75 67 68 |l be fas|t enough|
|00003c00| 20 61 6e 79 77 61 79 0d | 28 64 65 66 75 6e 20 70 | anyway.|(defun p|
|00003c10| 61 72 73 65 2d 6d 73 67 | 2d 64 61 74 65 20 28 6c |arse-msg|-date (l|
|00003c20| 69 6e 65 29 0d 20 20 3b | 3b 20 22 44 61 74 65 3a |ine).  ;|; "Date:|
|00003c30| 20 54 75 65 2c 20 31 38 | 20 44 65 63 20 39 30 20 | Tue, 18| Dec 90 |
|00003c40| 31 34 3a 33 36 3a 35 39 | 20 22 20 70 6f 73 73 69 |14:36:59| " possi|
|00003c50| 62 6c 79 20 77 69 74 68 | 20 61 20 74 69 6d 65 7a |bly with| a timez|
|00003c60| 6f 6e 65 20 61 66 74 65 | 72 20 69 74 0d 20 20 3b |one afte|r it.  ;|
|00003c70| 3b 20 54 68 65 20 64 61 | 79 20 6f 66 20 77 65 65 |; The da|y of wee|
|00003c80| 6b 20 61 6e 64 20 63 6f | 6d 6d 61 20 63 61 6e 20 |k and co|mma can |
|00003c90| 62 65 20 6f 6d 69 74 74 | 65 64 0d 20 20 3b 3b 20 |be omitt|ed.  ;; |
|00003ca0| 54 68 65 72 65 20 61 72 | 65 20 70 72 6f 62 61 62 |There ar|e probab|
|00003cb0| 6c 79 20 61 20 62 75 6e | 63 68 20 6f 66 20 6f 74 |ly a bun|ch of ot|
|00003cc0| 68 65 72 20 76 61 6c 69 | 64 20 66 6f 72 6d 61 74 |her vali|d format|
|00003cd0| 73 20 77 65 20 64 6f 6e | 27 74 20 70 61 72 73 65 |s we don|'t parse|
|00003ce0| 20 63 6f 72 72 65 63 74 | 6c 79 0d 20 20 3b 3b 20 | correct|ly.  ;; |
|00003cf0| 41 6c 73 6f 20 74 68 69 | 73 20 63 6f 64 65 20 69 |Also thi|s code i|
|00003d00| 73 20 76 65 72 79 20 75 | 6e 72 6f 62 75 73 74 20 |s very u|nrobust |
|00003d10| 62 75 74 20 69 74 27 73 | 20 74 68 65 20 62 65 73 |but it's| the bes|
|00003d20| 74 20 49 20 66 65 65 6c | 20 63 61 70 61 62 6c 65 |t I feel| capable|
|00003d30| 20 6f 66 20 74 6f 64 61 | 79 0d 20 20 28 6c 65 74 | of toda|y.  (let|
|00003d40| 20 28 28 69 20 30 29 0d | 20 20 20 20 20 20 20 20 | ((i 0).|        |
|00003d50| 28 79 65 61 72 20 6e 69 | 6c 29 20 28 6d 6f 6e 74 |(year ni|l) (mont|
|00003d60| 68 20 6e 69 6c 29 20 28 | 64 61 79 20 6e 69 6c 29 |h nil) (|day nil)|
|00003d70| 20 28 68 6f 75 72 20 6e | 69 6c 29 20 28 6d 69 6e | (hour n|il) (min|
|00003d80| 75 74 65 20 6e 69 6c 29 | 20 28 73 65 63 6f 6e 64 |ute nil)| (second|
|00003d90| 20 6e 69 6c 29 20 28 7a | 6f 6e 65 20 6e 69 6c 29 | nil) (z|one nil)|
|00003da0| 29 0d 20 20 20 20 28 6c | 61 62 65 6c 73 20 28 28 |).    (l|abels ((|
|00003db0| 6e 65 78 74 2d 74 6f 6b | 65 6e 20 28 29 0d 20 20 |next-tok|en ().  |
|00003dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 75 6e |        |     (un|
|00003dd0| 6c 65 73 73 20 28 6e 75 | 6c 6c 20 69 29 0d 20 20 |less (nu|ll i).  |
|00003de0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00003df0| 73 65 74 71 20 69 20 28 | 61 6e 64 20 28 3c 20 69 |setq i (|and (< i|
|00003e00| 20 28 6c 65 6e 67 74 68 | 20 6c 69 6e 65 29 29 0d | (length| line)).|
|00003e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 70 |        |      (p|
|00003e30| 6f 73 69 74 69 6f 6e 2d | 69 66 20 23 27 28 6c 61 |osition-|if #'(la|
|00003e40| 6d 62 64 61 20 28 63 68 | 61 72 29 20 0d 20 20 20 |mbda (ch|ar) .   |
|00003e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003e70| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 6e 6f 74 |        |    (not|
|00003e80| 20 28 6d 65 6d 62 65 72 | 20 63 68 61 72 20 27 28 | (member| char '(|
|00003e90| 23 5c 73 70 61 63 65 20 | 23 5c 74 61 62 29 29 29 |#\space |#\tab)))|
|00003ea0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00003eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6c 69 6e |        |     lin|
|00003ed0| 65 20 3a 73 74 61 72 74 | 20 69 29 29 29 29 0d 20 |e :start| i)))). |
|00003ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 75 |        |      (u|
|00003ef0| 6e 6c 65 73 73 20 28 6e | 75 6c 6c 20 69 29 0d 20 |nless (n|ull i). |
|00003f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f10| 28 6c 6f 6f 70 20 66 6f | 72 20 6a 20 66 72 6f 6d |(loop fo|r j from|
|00003f20| 20 69 20 62 65 6c 6f 77 | 20 28 6c 65 6e 67 74 68 | i below| (length|
|00003f30| 20 6c 69 6e 65 29 0d 20 | 20 20 20 20 20 20 20 20 | line). |        |
|00003f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 61 73 |        |      as|
|00003f50| 20 63 68 20 3d 20 28 61 | 72 65 66 20 6c 69 6e 65 | ch = (a|ref line|
|00003f60| 20 6a 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 | j).    |        |
|00003f70| 20 20 20 20 20 20 20 20 | 20 20 20 77 68 69 6c 65 |        |   while|
|00003f80| 20 28 6f 72 20 28 61 6c | 70 68 61 2d 63 68 61 72 | (or (al|pha-char|
|00003f90| 2d 70 20 63 68 29 20 28 | 64 69 67 69 74 2d 63 68 |-p ch) (|digit-ch|
|00003fa0| 61 72 2d 70 20 63 68 29 | 29 0d 20 20 20 20 20 20 |ar-p ch)|).      |
|00003fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003fc0| 20 63 6f 6c 6c 65 63 74 | 20 63 68 20 69 6e 74 6f | collect| ch into|
|00003fd0| 20 74 6f 6b 65 6e 0d 20 | 20 20 20 20 20 20 20 20 | token. |        |
|00003fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 66 69 |        |      fi|
|00003ff0| 6e 61 6c 6c 79 20 0d 20 | 20 20 20 20 20 20 20 20 |nally . |        |
|00004000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004010| 28 73 65 74 71 20 69 20 | 28 31 2b 20 6a 29 29 0d |(setq i |(1+ j)).|
|00004020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004030| 20 20 20 20 20 20 20 20 | 20 28 72 65 74 75 72 6e |        | (return|
|00004040| 20 28 76 61 6c 75 65 73 | 20 28 69 66 20 28 61 6e | (values| (if (an|
|00004050| 64 20 74 6f 6b 65 6e 20 | 28 65 76 65 72 79 20 23 |d token |(every #|
|00004060| 27 64 69 67 69 74 2d 63 | 68 61 72 2d 70 20 74 6f |'digit-c|har-p to|
|00004070| 6b 65 6e 29 29 0d 20 20 | 20 20 20 20 20 20 20 20 |ken)).  |        |
|00004080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000040a0| 20 28 70 61 72 73 65 2d | 69 6e 74 65 67 65 72 20 | (parse-|integer |
|000040b0| 28 63 6f 65 72 63 65 20 | 74 6f 6b 65 6e 20 27 73 |(coerce |token 's|
|000040c0| 74 72 69 6e 67 29 29 0d | 20 20 20 20 20 20 20 20 |tring)).|        |
|000040d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000040e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000040f0| 20 20 20 28 63 6f 65 72 | 63 65 20 74 6f 6b 65 6e |   (coer|ce token|
|00004100| 20 27 73 74 72 69 6e 67 | 29 29 0d 20 20 20 20 20 | 'string|)).     |
|00004110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004130| 20 20 20 20 28 69 66 20 | 28 3c 20 6a 20 28 6c 65 |    (if |(< j (le|
|00004140| 6e 67 74 68 20 6c 69 6e | 65 29 29 20 63 68 20 23 |ngth lin|e)) ch #|
|00004150| 5c 73 70 61 63 65 29 29 | 29 29 29 29 0d 20 20 20 |\space))|)))).   |
|00004160| 20 20 20 20 20 20 20 20 | 20 20 28 64 6f 2d 64 61 |        |  (do-da|
|00004170| 74 65 20 28 29 0d 20 20 | 20 20 20 20 20 20 20 20 |te ().  |        |
|00004180| 20 20 20 20 20 28 6d 75 | 6c 74 69 70 6c 65 2d 76 |     (mu|ltiple-v|
|00004190| 61 6c 75 65 2d 62 69 6e | 64 20 28 74 6f 6b 65 6e |alue-bin|d (token|
|000041a0| 20 64 65 6c 69 6d 69 74 | 65 72 29 20 28 6e 65 78 | delimit|er) (nex|
|000041b0| 74 2d 74 6f 6b 65 6e 29 | 0d 20 20 20 20 20 20 20 |t-token)|.       |
|000041c0| 20 20 20 20 20 20 20 20 | 20 20 28 77 68 65 6e 20 |        |  (when |
|000041d0| 28 63 68 61 72 3d 20 64 | 65 6c 69 6d 69 74 65 72 |(char= d|elimiter|
|000041e0| 20 23 5c 2c 29 20 20 20 | 3b 20 73 6b 69 70 20 6f | #\,)   |; skip o|
|000041f0| 76 65 72 20 64 61 79 20 | 6f 66 20 77 65 65 6b 0d |ver day |of week.|
|00004200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004210| 20 20 20 28 6d 75 6c 74 | 69 70 6c 65 2d 76 61 6c |   (mult|iple-val|
|00004220| 75 65 2d 73 65 74 71 20 | 28 74 6f 6b 65 6e 20 64 |ue-setq |(token d|
|00004230| 65 6c 69 6d 69 74 65 72 | 29 20 28 6e 65 78 74 2d |elimiter|) (next-|
|00004240| 74 6f 6b 65 6e 29 29 29 | 0d 20 20 20 20 20 20 20 |token)))|.       |
|00004250| 20 20 20 20 20 20 20 20 | 20 20 28 61 73 73 65 72 |        |  (asser|
|00004260| 74 20 28 69 6e 74 65 67 | 65 72 70 20 74 6f 6b 65 |t (integ|erp toke|
|00004270| 6e 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |n)).    |        |
|00004280| 20 20 20 20 20 28 73 65 | 74 71 20 64 61 79 20 74 |     (se|tq day t|
|00004290| 6f 6b 65 6e 29 0d 20 20 | 20 20 20 20 20 20 20 20 |oken).  |        |
|000042a0| 20 20 20 20 20 20 20 28 | 73 65 74 71 20 6d 6f 6e |       (|setq mon|
|000042b0| 74 68 20 28 31 2b 20 28 | 70 6f 73 69 74 69 6f 6e |th (1+ (|position|
|000042c0| 20 28 6e 65 78 74 2d 74 | 6f 6b 65 6e 29 0d 20 20 | (next-t|oken).  |
|000042d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000042e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000042f0| 20 20 20 20 20 20 20 20 | 20 27 28 22 4a 61 6e 22 |        | '("Jan"|
|00004300| 20 22 46 65 62 22 20 22 | 4d 61 72 22 20 22 41 70 | "Feb" "|Mar" "Ap|
|00004310| 72 22 20 22 4d 61 79 22 | 20 22 4a 75 6e 22 0d 20 |r" "May"| "Jun". |
|00004320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004340| 20 20 20 20 20 20 20 20 | 20 20 20 20 22 4a 75 6c |        |    "Jul|
|00004350| 22 20 22 41 75 67 22 20 | 22 53 65 70 22 20 22 4f |" "Aug" |"Sep" "O|
|00004360| 63 74 22 20 22 4e 6f 76 | 22 20 22 44 65 63 22 29 |ct" "Nov|" "Dec")|
|00004370| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00004380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004390| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 74 65 73 |        |    :tes|
|000043a0| 74 20 23 27 73 74 72 69 | 6e 67 2d 65 71 75 61 6c |t #'stri|ng-equal|
|000043b0| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |))).    |        |
|000043c0| 20 20 20 20 20 28 61 73 | 73 65 72 74 20 28 69 6e |     (as|sert (in|
|000043d0| 74 65 67 65 72 70 20 6d | 6f 6e 74 68 29 29 0d 20 |tegerp m|onth)). |
|000043e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000043f0| 28 73 65 74 71 20 79 65 | 61 72 20 28 6e 65 78 74 |(setq ye|ar (next|
|00004400| 2d 74 6f 6b 65 6e 29 29 | 0d 20 20 20 20 20 20 20 |-token))|.       |
|00004410| 20 20 20 20 20 20 20 20 | 20 20 28 61 73 73 65 72 |        |  (asser|
|00004420| 74 20 28 69 6e 74 65 67 | 65 72 70 20 79 65 61 72 |t (integ|erp year|
|00004430| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)).     |        |
|00004440| 20 20 20 20 28 77 68 65 | 6e 20 28 3c 20 79 65 61 |    (whe|n (< yea|
|00004450| 72 20 31 39 30 30 29 20 | 28 69 6e 63 66 20 79 65 |r 1900) |(incf ye|
|00004460| 61 72 20 31 39 30 30 29 | 29 29 29 0d 20 20 20 20 |ar 1900)|))).    |
|00004470| 20 20 20 20 20 20 20 20 | 20 28 64 6f 2d 74 69 6d |        | (do-tim|
|00004480| 65 20 28 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |e ().   |        |
|00004490| 20 20 20 20 28 6c 6f 6f | 70 0d 20 20 20 20 20 20 |    (loo|p.      |
|000044a0| 20 20 20 20 20 20 20 20 | 20 20 20 28 6d 75 6c 74 |        |   (mult|
|000044b0| 69 70 6c 65 2d 76 61 6c | 75 65 2d 62 69 6e 64 20 |iple-val|ue-bind |
|000044c0| 28 74 6f 6b 65 6e 20 64 | 65 6c 69 6d 69 74 65 72 |(token d|elimiter|
|000044d0| 29 20 28 6e 65 78 74 2d | 74 6f 6b 65 6e 29 0d 20 |) (next-|token). |
|000044e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000044f0| 20 20 28 61 73 73 65 72 | 74 20 28 69 6e 74 65 67 |  (asser|t (integ|
|00004500| 65 72 70 20 74 6f 6b 65 | 6e 29 29 0d 20 20 20 20 |erp toke|n)).    |
|00004510| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00004520| 63 6f 6e 64 20 28 28 6e | 75 6c 6c 20 68 6f 75 72 |cond ((n|ull hour|
|00004530| 29 20 28 73 65 74 71 20 | 68 6f 75 72 20 74 6f 6b |) (setq |hour tok|
|00004540| 65 6e 29 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |en)).   |        |
|00004550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 28 |        |      ((|
|00004560| 6e 75 6c 6c 20 6d 69 6e | 75 74 65 29 20 28 73 65 |null min|ute) (se|
|00004570| 74 71 20 6d 69 6e 75 74 | 65 20 74 6f 6b 65 6e 29 |tq minut|e token)|
|00004580| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00004590| 20 20 20 20 20 20 20 20 | 20 20 20 28 74 20 28 73 |        |   (t (s|
|000045a0| 65 74 71 20 73 65 63 6f | 6e 64 20 74 6f 6b 65 6e |etq seco|nd token|
|000045b0| 29 29 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |))).    |        |
|000045c0| 20 20 20 20 20 20 20 28 | 75 6e 6c 65 73 73 20 28 |       (|unless (|
|000045d0| 63 68 61 72 3d 20 64 65 | 6c 69 6d 69 74 65 72 20 |char= de|limiter |
|000045e0| 23 5c 3a 29 20 28 72 65 | 74 75 72 6e 29 29 29 29 |#\:) (re|turn))))|
|000045f0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |).      |       (|
|00004600| 64 6f 2d 7a 6f 6e 65 20 | 28 29 0d 20 20 20 20 20 |do-zone |().     |
|00004610| 20 20 20 20 20 20 20 20 | 20 20 28 6d 75 6c 74 69 |        |  (multi|
|00004620| 70 6c 65 2d 76 61 6c 75 | 65 2d 62 69 6e 64 20 28 |ple-valu|e-bind (|
|00004630| 74 6f 6b 65 6e 20 64 65 | 6c 69 6d 69 74 65 72 29 |token de|limiter)|
|00004640| 20 28 6e 65 78 74 2d 74 | 6f 6b 65 6e 29 0d 20 20 | (next-t|oken).  |
|00004650| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00004660| 6c 65 74 20 28 28 74 65 | 6d 20 28 61 6e 64 20 28 |let ((te|m (and (|
|00004670| 73 74 72 69 6e 67 70 20 | 74 6f 6b 65 6e 29 0d 20 |stringp |token). |
|00004680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004690| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000046a0| 28 61 73 73 6f 63 20 74 | 6f 6b 65 6e 20 27 28 28 |(assoc t|oken '((|
|000046b0| 22 45 53 54 22 20 2e 20 | 35 29 20 28 22 45 44 54 |"EST" . |5) ("EDT|
|000046c0| 22 20 2e 20 34 29 0d 20 | 20 20 20 20 20 20 20 20 |" . 4). |        |
|000046d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000046e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000046f0| 20 20 20 20 20 20 20 28 | 22 50 53 54 22 20 2e 20 |       (|"PST" . |
|00004700| 38 29 20 28 22 50 44 54 | 22 20 2e 20 37 29 0d 20 |8) ("PDT|" . 7). |
|00004710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004730| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |        |       (|
|00004740| 22 47 4d 54 22 20 2e 20 | 30 29 29 0d 20 20 20 20 |"GMT" . |0)).    |
|00004750| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004760| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004770| 20 20 20 20 3a 74 65 73 | 74 20 23 27 73 74 72 69 |    :tes|t #'stri|
|00004780| 6e 67 2d 65 71 75 61 6c | 29 29 29 29 0d 20 20 20 |ng-equal|)))).   |
|00004790| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000047a0| 28 63 6f 6e 64 20 28 74 | 65 6d 20 28 73 65 74 71 |(cond (t|em (setq|
|000047b0| 20 7a 6f 6e 65 20 28 63 | 64 72 20 74 65 6d 29 29 | zone (c|dr tem))|
|000047c0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|000047d0| 20 20 20 20 20 20 20 20 | 20 20 20 28 28 6e 75 6c |        |   ((nul|
|000047e0| 6c 20 74 6f 6b 65 6e 29 | 29 0d 20 20 20 20 20 20 |l token)|).      |
|000047f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004800| 20 20 20 28 28 63 68 61 | 72 3d 20 64 65 6c 69 6d |   ((cha|r= delim|
|00004810| 69 74 65 72 20 23 5c 2d | 29 0d 20 20 20 20 20 20 |iter #\-|).      |
|00004820| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004830| 20 20 20 20 28 6c 65 74 | 20 28 28 74 65 6d 20 28 |    (let| ((tem (|
|00004840| 6e 65 78 74 2d 74 6f 6b | 65 6e 29 29 29 0d 20 20 |next-tok|en))).  |
|00004850| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004860| 20 20 20 20 20 20 20 20 | 20 20 28 77 68 65 6e 20 |        |  (when |
|00004870| 28 6e 75 6d 62 65 72 70 | 20 74 65 6d 29 20 28 73 |(numberp| tem) (s|
|00004880| 65 74 71 20 7a 6f 6e 65 | 20 28 2f 20 74 65 6d 20 |etq zone| (/ tem |
|00004890| 31 30 30 29 29 29 29 29 | 0d 20 20 20 20 20 20 20 |100)))))|.       |
|000048a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000048b0| 20 20 28 28 63 68 61 72 | 3d 20 64 65 6c 69 6d 69 |  ((char|= delimi|
|000048c0| 74 65 72 20 23 5c 2b 29 | 0d 20 20 20 20 20 20 20 |ter #\+)|.       |
|000048d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000048e0| 20 20 20 28 6c 65 74 20 | 28 28 74 65 6d 20 28 6e |   (let |((tem (n|
|000048f0| 65 78 74 2d 74 6f 6b 65 | 6e 29 29 29 0d 20 20 20 |ext-toke|n))).   |
|00004900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004910| 20 20 20 20 20 20 20 20 | 20 28 77 68 65 6e 20 28 |        | (when (|
|00004920| 6e 75 6d 62 65 72 70 20 | 74 65 6d 29 20 28 73 65 |numberp |tem) (se|
|00004930| 74 71 20 7a 6f 6e 65 20 | 28 2d 20 32 34 20 28 2f |tq zone |(- 24 (/|
|00004940| 20 74 65 6d 20 31 30 30 | 29 29 29 29 29 29 29 29 | tem 100|))))))))|
|00004950| 29 29 29 0d 20 20 20 20 | 20 20 28 64 6f 2d 64 61 |))).    |  (do-da|
|00004960| 74 65 29 0d 20 20 20 20 | 20 20 28 64 6f 2d 74 69 |te).    |  (do-ti|
|00004970| 6d 65 29 0d 20 20 20 20 | 20 20 28 64 6f 2d 7a 6f |me).    |  (do-zo|
|00004980| 6e 65 29 0d 20 20 20 20 | 20 20 28 65 6e 63 6f 64 |ne).    |  (encod|
|00004990| 65 2d 75 6e 69 76 65 72 | 73 61 6c 2d 74 69 6d 65 |e-univer|sal-time|
|000049a0| 20 28 6f 72 20 73 65 63 | 6f 6e 64 20 30 29 20 28 | (or sec|ond 0) (|
|000049b0| 6f 72 20 6d 69 6e 75 74 | 65 20 30 29 20 28 6f 72 |or minut|e 0) (or|
|000049c0| 20 68 6f 75 72 20 30 29 | 0d 20 20 20 20 20 20 20 | hour 0)|.       |
|000049d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000049e0| 20 20 20 20 20 20 28 6f | 72 20 64 61 79 20 31 29 |      (o|r day 1)|
|000049f0| 20 28 6f 72 20 6d 6f 6e | 74 68 20 30 29 20 28 6f | (or mon|th 0) (o|
|00004a00| 72 20 79 65 61 72 20 30 | 29 0d 20 20 20 20 20 20 |r year 0|).      |
|00004a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004a20| 20 20 20 20 20 20 20 28 | 6f 72 20 7a 6f 6e 65 20 |       (|or zone |
|00004a30| 28 6e 74 68 2d 76 61 6c | 75 65 20 38 20 28 67 65 |(nth-val|ue 8 (ge|
|00004a40| 74 2d 64 65 63 6f 64 65 | 64 2d 74 69 6d 65 29 29 |t-decode|d-time))|
|00004a50| 29 29 29 29 29 0d 0d 3b | 3b 3b 20 53 6f 72 74 20 |)))))..;|;; Sort |
|00004a60| 70 72 65 64 69 63 61 74 | 65 73 0d 3b 3b 3b 20 41 |predicat|es.;;; A|
|00004a70| 20 6d 73 67 20 69 73 20 | 28 70 6f 73 69 74 69 6f | msg is |(positio|
|00004a80| 6e 20 73 69 7a 65 20 64 | 61 74 65 20 73 75 62 6a |n size d|ate subj|
|00004a90| 65 63 74 29 0d 0d 28 64 | 65 66 75 6e 20 73 6f 72 |ect)..(d|efun sor|
|00004aa0| 74 2d 6d 61 69 6c 2d 6f | 6c 64 65 73 74 2d 66 69 |t-mail-o|ldest-fi|
|00004ab0| 72 73 74 20 28 6d 73 67 | 31 20 6d 73 67 32 29 20 |rst (msg|1 msg2) |
|00004ac0| 28 3c 20 28 74 68 69 72 | 64 20 6d 73 67 31 29 20 |(< (thir|d msg1) |
|00004ad0| 28 74 68 69 72 64 20 6d | 73 67 32 29 29 29 0d 0d |(third m|sg2)))..|
|00004ae0| 28 64 65 66 75 6e 20 73 | 6f 72 74 2d 6d 61 69 6c |(defun s|ort-mail|
|00004af0| 2d 6e 65 77 65 73 74 2d | 66 69 72 73 74 20 28 6d |-newest-|first (m|
|00004b00| 73 67 31 20 6d 73 67 32 | 29 20 28 3e 20 28 74 68 |sg1 msg2|) (> (th|
|00004b10| 69 72 64 20 6d 73 67 31 | 29 20 28 74 68 69 72 64 |ird msg1|) (third|
|00004b20| 20 6d 73 67 32 29 29 29 | 0d 0d 28 64 65 66 75 6e | msg2)))|..(defun|
|00004b30| 20 73 6f 72 74 2d 6d 61 | 69 6c 2d 62 79 2d 73 75 | sort-ma|il-by-su|
|00004b40| 62 6a 65 63 74 20 28 6d | 73 67 31 20 6d 73 67 32 |bject (m|sg1 msg2|
|00004b50| 29 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 |) (strin|g-lessp |
|00004b60| 28 66 6f 75 72 74 68 20 | 6d 73 67 31 29 20 28 66 |(fourth |msg1) (f|
|00004b70| 6f 75 72 74 68 20 6d 73 | 67 32 29 29 29 0d 0d 28 |ourth ms|g2)))..(|
|00004b80| 64 65 66 75 6e 20 73 6f | 72 74 2d 6d 61 69 6c 2d |defun so|rt-mail-|
|00004b90| 6f 6c 64 65 73 74 2d 66 | 69 72 73 74 2d 77 69 74 |oldest-f|irst-wit|
|00004ba0| 68 69 6e 2d 73 75 62 6a | 65 63 74 20 28 6d 73 67 |hin-subj|ect (msg|
|00004bb0| 31 20 6d 73 67 32 29 0d | 20 20 28 69 66 20 28 73 |1 msg2).|  (if (s|
|00004bc0| 74 72 69 6e 67 2d 65 71 | 75 61 6c 20 28 66 6f 75 |tring-eq|ual (fou|
|00004bd0| 72 74 68 20 6d 73 67 31 | 29 20 28 66 6f 75 72 74 |rth msg1|) (fourt|
|00004be0| 68 20 6d 73 67 32 29 29 | 0d 20 20 20 20 28 3c 20 |h msg2))|.    (< |
|00004bf0| 28 74 68 69 72 64 20 6d | 73 67 31 29 20 28 74 68 |(third m|sg1) (th|
|00004c00| 69 72 64 20 6d 73 67 32 | 29 29 0d 20 20 20 20 28 |ird msg2|)).    (|
|00004c10| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 28 66 6f |string-l|essp (fo|
|00004c20| 75 72 74 68 20 6d 73 67 | 31 29 20 28 66 6f 75 72 |urth msg|1) (four|
|00004c30| 74 68 20 6d 73 67 32 29 | 29 29 29 0d 20 20 20 20 |th msg2)|))).    |
|00004c40| 20 20 20 0d 28 64 65 66 | 75 6e 20 73 6f 72 74 2d |   .(def|un sort-|
|00004c50| 6d 61 69 6c 2d 6e 65 77 | 65 73 74 2d 66 69 72 73 |mail-new|est-firs|
|00004c60| 74 2d 77 69 74 68 69 6e | 2d 73 75 62 6a 65 63 74 |t-within|-subject|
|00004c70| 20 28 6d 73 67 31 20 6d | 73 67 32 29 0d 20 20 28 | (msg1 m|sg2).  (|
|00004c80| 69 66 20 28 73 74 72 69 | 6e 67 2d 65 71 75 61 6c |if (stri|ng-equal|
|00004c90| 20 28 66 6f 75 72 74 68 | 20 6d 73 67 31 29 20 28 | (fourth| msg1) (|
|00004ca0| 66 6f 75 72 74 68 20 6d | 73 67 32 29 29 0d 20 20 |fourth m|sg2)).  |
|00004cb0| 20 20 28 3e 20 28 74 68 | 69 72 64 20 6d 73 67 31 |  (> (th|ird msg1|
|00004cc0| 29 20 28 74 68 69 72 64 | 20 6d 73 67 32 29 29 0d |) (third| msg2)).|
|00004cd0| 20 20 20 20 28 73 74 72 | 69 6e 67 2d 6c 65 73 73 |    (str|ing-less|
|00004ce0| 70 20 28 66 6f 75 72 74 | 68 20 6d 73 67 31 29 20 |p (fourt|h msg1) |
|00004cf0| 28 66 6f 75 72 74 68 20 | 6d 73 67 32 29 29 29 29 |(fourth |msg2))))|
|00004d00| 0d 0d 3b 3b 3b 20 4d 65 | 6e 75 20 75 73 65 72 20 |..;;; Me|nu user |
|00004d10| 69 6e 74 65 72 66 61 63 | 65 0d 0d 28 6c 65 74 2a |interfac|e..(let*|
|00004d20| 20 28 28 74 6f 6f 6c 73 | 2d 6d 65 6e 75 20 28 66 | ((tools|-menu (f|
|00004d30| 69 6e 64 2d 6d 65 6e 75 | 20 22 54 6f 6f 6c 73 22 |ind-menu| "Tools"|
|00004d40| 29 29 0d 20 20 20 20 20 | 20 20 28 74 6f 6f 6c 73 |)).     |  (tools|
|00004d50| 20 28 72 65 6d 6f 76 65 | 20 22 53 6f 72 74 20 4d | (remove| "Sort M|
|00004d60| 61 69 6c 22 20 28 6d 65 | 6e 75 2d 69 74 65 6d 73 |ail" (me|nu-items|
|00004d70| 20 74 6f 6f 6c 73 2d 6d | 65 6e 75 29 20 20 3a 74 | tools-m|enu)  :t|
|00004d80| 65 73 74 20 23 27 65 71 | 75 61 6c 20 3a 6b 65 79 |est #'eq|ual :key|
|00004d90| 20 23 27 6d 65 6e 75 2d | 69 74 65 6d 2d 74 69 74 | #'menu-|item-tit|
|00004da0| 6c 65 29 29 0d 20 20 20 | 20 20 20 20 28 6c 69 6e |le)).   |    (lin|
|00004db0| 65 2d 70 6f 73 69 74 69 | 6f 6e 20 28 70 6f 73 69 |e-positi|on (posi|
|00004dc0| 74 69 6f 6e 20 22 2d 22 | 20 74 6f 6f 6c 73 20 3a |tion "-"| tools :|
|00004dd0| 74 65 73 74 20 23 27 65 | 71 75 61 6c 20 3a 6b 65 |test #'e|qual :ke|
|00004de0| 79 20 23 27 6d 65 6e 75 | 2d 69 74 65 6d 2d 74 69 |y #'menu|-item-ti|
|00004df0| 74 6c 65 29 29 0d 20 20 | 20 20 20 20 20 28 73 6f |tle)).  |     (so|
|00004e00| 72 74 2d 6d 65 6e 75 20 | 28 6d 61 6b 65 2d 69 6e |rt-menu |(make-in|
|00004e10| 73 74 61 6e 63 65 20 27 | 6d 65 6e 75 0d 20 20 20 |stance '|menu.   |
|00004e20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004e30| 20 3a 6d 65 6e 75 2d 74 | 69 74 6c 65 20 22 53 6f | :menu-t|itle "So|
|00004e40| 72 74 20 4d 61 69 6c 22 | 0d 20 20 20 20 20 20 20 |rt Mail"|.       |
|00004e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a 6d 65 |        |     :me|
|00004e60| 6e 75 2d 69 74 65 6d 73 | 20 28 6c 6f 6f 70 20 66 |nu-items| (loop f|
|00004e70| 6f 72 20 74 69 74 6c 65 | 20 69 6e 20 27 28 22 4f |or title| in '("O|
|00004e80| 6c 64 65 73 74 20 46 69 | 72 73 74 2e 2e 2e 22 0d |ldest Fi|rst...".|
|00004e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004ec0| 20 20 20 20 20 22 4e 65 | 77 65 73 74 20 46 69 72 |     "Ne|west Fir|
|00004ed0| 73 74 2e 2e 2e 22 0d 20 | 20 20 20 20 20 20 20 20 |st...". |        |
|00004ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 22 42 79 20 |        |    "By |
|00004f10| 53 75 62 6a 65 63 74 2e | 2e 2e 22 0d 20 20 20 20 |Subject.|..".    |
|00004f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004f50| 20 22 4f 6c 64 65 73 74 | 20 46 69 72 73 74 20 77 | "Oldest| First w|
|00004f60| 69 74 68 69 6e 20 53 75 | 62 6a 65 63 74 73 2e 2e |ithin Su|bjects..|
|00004f70| 2e 22 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.".     |        |
|00004f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004f90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004fa0| 20 20 20 20 20 20 20 20 | 22 4e 65 77 65 73 74 20 |        |"Newest |
|00004fb0| 46 69 72 73 74 20 77 69 | 74 68 69 6e 20 53 75 62 |First wi|thin Sub|
|00004fc0| 6a 65 63 74 73 2e 2e 2e | 22 29 0d 20 20 20 20 20 |jects...|").     |
|00004fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004fe0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004ff0| 20 61 6e 64 20 70 72 65 | 64 69 63 61 74 65 20 69 | and pre|dicate i|
|00005000| 6e 20 27 28 73 6f 72 74 | 2d 6d 61 69 6c 2d 6f 6c |n '(sort|-mail-ol|
|00005010| 64 65 73 74 2d 66 69 72 | 73 74 0d 20 20 20 20 20 |dest-fir|st.     |
|00005020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005050| 20 20 20 20 73 6f 72 74 | 2d 6d 61 69 6c 2d 6e 65 |    sort|-mail-ne|
|00005060| 77 65 73 74 2d 66 69 72 | 73 74 0d 20 20 20 20 20 |west-fir|st.     |
|00005070| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005080| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005090| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000050a0| 20 20 20 20 73 6f 72 74 | 2d 6d 61 69 6c 2d 62 79 |    sort|-mail-by|
|000050b0| 2d 73 75 62 6a 65 63 74 | 0d 20 20 20 20 20 20 20 |-subject|.       |
|000050c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000050d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000050e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000050f0| 20 20 73 6f 72 74 2d 6d | 61 69 6c 2d 6f 6c 64 65 |  sort-m|ail-olde|
|00005100| 73 74 2d 66 69 72 73 74 | 2d 77 69 74 68 69 6e 2d |st-first|-within-|
|00005110| 73 75 62 6a 65 63 74 0d | 20 20 20 20 20 20 20 20 |subject.|        |
|00005120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005150| 20 73 6f 72 74 2d 6d 61 | 69 6c 2d 6e 65 77 65 73 | sort-ma|il-newes|
|00005160| 74 2d 66 69 72 73 74 2d | 77 69 74 68 69 6e 2d 73 |t-first-|within-s|
|00005170| 75 62 6a 65 63 74 29 0d | 20 20 20 20 20 20 20 20 |ubject).|        |
|00005180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 63 6f |        |      co|
|000051a0| 6c 6c 65 63 74 20 28 6d | 61 6b 65 2d 69 6e 73 74 |llect (m|ake-inst|
|000051b0| 61 6e 63 65 20 27 6d 65 | 6e 75 2d 69 74 65 6d 0d |ance 'me|nu-item.|
|000051c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000051d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000051e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000051f0| 3a 6d 65 6e 75 2d 69 74 | 65 6d 2d 74 69 74 6c 65 |:menu-it|em-title|
|00005200| 20 74 69 74 6c 65 0d 20 | 20 20 20 20 20 20 20 20 | title. |        |
|00005210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005230| 20 20 20 20 20 20 20 3a | 6d 65 6e 75 2d 69 74 65 |       :|menu-ite|
|00005240| 6d 2d 61 63 74 69 6f 6e | 20 0d 20 20 20 20 20 20 |m-action| .      |
|00005250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005260| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005270| 20 20 20 20 20 20 20 20 | 20 20 20 20 28 6c 65 74 |        |    (let|
|00005280| 20 28 28 70 72 65 64 69 | 63 61 74 65 20 70 72 65 | ((predi|cate pre|
|00005290| 64 69 63 61 74 65 29 29 | 0d 20 20 20 20 20 20 20 |dicate))|.       |
|000052a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000052b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000052c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 23 27 28 |        |     #'(|
|000052d0| 6c 61 6d 62 64 61 20 28 | 29 0d 20 20 20 20 20 20 |lambda (|).      |
|000052e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000052f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005310| 20 20 28 73 6f 72 74 2d | 6d 61 69 6c 2d 66 72 6f |  (sort-|mail-fro|
|00005320| 6d 2d 6d 65 6e 75 20 70 | 72 65 64 69 63 61 74 65 |m-menu p|redicate|
|00005330| 29 29 29 29 29 29 29 0d | 20 20 20 20 20 20 20 28 |))))))).|       (|
|00005340| 75 70 64 61 74 65 64 2d | 74 6f 6f 6c 73 20 28 61 |updated-|tools (a|
|00005350| 70 70 65 6e 64 20 28 73 | 75 62 73 65 71 20 74 6f |ppend (s|ubseq to|
|00005360| 6f 6c 73 20 30 20 6c 69 | 6e 65 2d 70 6f 73 69 74 |ols 0 li|ne-posit|
|00005370| 69 6f 6e 29 20 28 6c 69 | 73 74 20 73 6f 72 74 2d |ion) (li|st sort-|
|00005380| 6d 65 6e 75 29 20 28 73 | 75 62 73 65 71 20 74 6f |menu) (s|ubseq to|
|00005390| 6f 6c 73 20 6c 69 6e 65 | 2d 70 6f 73 69 74 69 6f |ols line|-positio|
|000053a0| 6e 29 29 29 29 0d 20 20 | 28 61 70 70 6c 79 20 23 |n)))).  |(apply #|
|000053b0| 27 72 65 6d 6f 76 65 2d | 6d 65 6e 75 2d 69 74 65 |'remove-|menu-ite|
|000053c0| 6d 73 20 74 6f 6f 6c 73 | 2d 6d 65 6e 75 20 28 6d |ms tools|-menu (m|
|000053d0| 65 6e 75 2d 69 74 65 6d | 73 20 74 6f 6f 6c 73 2d |enu-item|s tools-|
|000053e0| 6d 65 6e 75 29 29 0d 20 | 20 28 61 70 70 6c 79 20 |menu)). | (apply |
|000053f0| 23 27 61 64 64 2d 6d 65 | 6e 75 2d 69 74 65 6d 73 |#'add-me|nu-items|
|00005400| 20 74 6f 6f 6c 73 2d 6d | 65 6e 75 20 75 70 64 61 | tools-m|enu upda|
|00005410| 74 65 64 2d 74 6f 6f 6c | 73 29 29 0d 20 20 0d 28 |ted-tool|s)).  .(|
|00005420| 64 65 66 75 6e 20 73 6f | 72 74 2d 6d 61 69 6c 2d |defun so|rt-mail-|
|00005430| 66 72 6f 6d 2d 6d 65 6e | 75 20 28 70 72 65 64 69 |from-men|u (predi|
|00005440| 63 61 74 65 29 0d 20 20 | 28 6c 65 74 2a 20 28 28 |cate).  |(let* ((|
|00005450| 70 61 74 68 6e 61 6d 65 | 20 28 63 68 6f 6f 73 65 |pathname| (choose|
|00005460| 2d 6d 61 69 6c 2d 66 69 | 6c 65 20 3a 62 75 74 74 |-mail-fi|le :butt|
|00005470| 6f 6e 2d 73 74 72 69 6e | 67 20 22 53 6f 72 74 22 |on-strin|g "Sort"|
|00005480| 29 29 0d 20 20 20 20 20 | 20 20 20 20 28 74 65 6d |)).     |    (tem|
|00005490| 70 20 28 6d 61 6b 65 2d | 70 61 74 68 6e 61 6d 65 |p (make-|pathname|
|000054a0| 20 3a 64 65 66 61 75 6c | 74 73 20 70 61 74 68 6e | :defaul|ts pathn|
|000054b0| 61 6d 65 20 3a 6e 61 6d | 65 20 22 21 21 54 45 4d |ame :nam|e "!!TEM|
|000054c0| 50 4f 52 41 52 59 20 46 | 49 4c 45 21 21 22 29 29 |PORARY F|ILE!!"))|
|000054d0| 0d 20 20 20 20 20 20 20 | 20 20 28 6f 6c 64 20 28 |.       |  (old (|
|000054e0| 6d 61 6b 65 2d 70 61 74 | 68 6e 61 6d 65 20 3a 64 |make-pat|hname :d|
|000054f0| 65 66 61 75 6c 74 73 20 | 70 61 74 68 6e 61 6d 65 |efaults |pathname|
|00005500| 20 3a 6e 61 6d 65 20 22 | 21 21 4f 4c 44 20 46 49 | :name "|!!OLD FI|
|00005510| 4c 45 21 21 22 29 29 29 | 0d 20 20 20 20 28 77 69 |LE!!")))|.    (wi|
|00005520| 74 68 2d 62 75 73 79 2d | 64 69 61 6c 6f 67 0d 20 |th-busy-|dialog. |
|00005530| 20 20 20 20 20 28 73 68 | 6f 77 2d 62 75 73 79 2d |     (sh|ow-busy-|
|00005540| 6d 65 73 73 61 67 65 20 | 22 4f 70 65 6e 69 6e 67 |message |"Opening|
|00005550| 20 6d 61 69 6c 20 66 69 | 6c 65 20 7e 41 22 20 70 | mail fi|le ~A" p|
|00005560| 61 74 68 6e 61 6d 65 29 | 0d 20 20 20 20 20 20 3b |athname)|.      ;|
|00005570| 3b 20 49 20 74 72 69 65 | 64 20 75 73 69 6e 67 20 |; I trie|d using |
|00005580| 3a 65 78 63 6c 75 73 69 | 76 65 20 69 6e 73 74 65 |:exclusi|ve inste|
|00005590| 61 64 20 6f 66 20 3a 69 | 6e 70 75 74 20 68 65 72 |ad of :i|nput her|
|000055a0| 65 2c 20 62 75 74 20 69 | 74 20 64 6f 65 73 6e 27 |e, but i|t doesn'|
|000055b0| 74 20 64 65 74 65 63 74 | 0d 20 20 20 20 20 20 3b |t detect|.      ;|
|000055c0| 3b 20 77 68 65 74 68 65 | 72 20 74 68 65 20 66 69 |; whethe|r the fi|
|000055d0| 6c 65 20 69 73 20 6f 70 | 65 6e 20 62 79 20 54 65 |le is op|en by Te|
|000055e0| 63 68 4d 61 69 6c 2c 20 | 62 65 63 61 75 73 65 20 |chMail, |because |
|000055f0| 54 65 63 68 4d 61 69 6c | 20 6f 70 65 6e 73 20 69 |TechMail| opens i|
|00005600| 74 20 72 65 61 64 2d 6f | 6e 6c 79 0d 20 20 20 20 |t read-o|nly.    |
|00005610| 20 20 3b 3b 20 61 6e 64 | 20 74 68 65 20 4d 61 63 |  ;; and| the Mac|
|00005620| 20 66 69 6c 65 20 73 79 | 73 74 65 6d 20 64 6f 65 | file sy|stem doe|
|00005630| 73 6e 27 74 20 68 61 76 | 65 20 74 68 65 20 73 61 |sn't hav|e the sa|
|00005640| 6d 65 20 64 65 66 69 6e | 69 74 69 6f 6e 20 6f 66 |me defin|ition of|
|00005650| 20 65 78 63 6c 75 73 69 | 76 65 0d 20 20 20 20 20 | exclusi|ve.     |
|00005660| 20 3b 3b 20 74 68 61 74 | 20 6d 6f 73 74 20 6f 74 | ;; that| most ot|
|00005670| 68 65 72 20 66 69 6c 65 | 20 73 79 73 74 65 6d 73 |her file| systems|
|00005680| 20 68 61 76 65 2e 20 20 | 53 6f 20 6a 75 73 74 20 | have.  |So just |
|00005690| 73 65 65 20 69 66 20 74 | 68 65 20 66 69 6c 65 20 |see if t|he file |
|000056a0| 69 73 20 6f 70 65 6e 0d | 20 20 20 20 20 20 3b 3b |is open.|      ;;|
|000056b0| 20 6f 6e 20 74 68 65 20 | 6c 6f 63 61 6c 20 6d 61 | on the |local ma|
|000056c0| 63 68 69 6e 65 2e 0d 20 | 20 20 20 20 20 28 77 68 |chine.. |     (wh|
|000056d0| 65 6e 20 28 66 69 6c 65 | 2d 6f 70 65 6e 2d 70 20 |en (file|-open-p |
|000056e0| 70 61 74 68 6e 61 6d 65 | 29 20 0d 20 20 20 20 20 |pathname|) .     |
|000056f0| 20 20 20 28 66 6f 72 6d | 61 74 20 2a 65 72 72 6f |   (form|at *erro|
|00005700| 72 2d 6f 75 74 70 75 74 | 2a 20 22 7e 32 26 4d 61 |r-output|* "~2&Ma|
|00005710| 69 6c 20 66 69 6c 65 20 | 7e 41 20 69 73 20 6f 70 |il file |~A is op|
|00005720| 65 6e 2c 20 70 72 6f 62 | 61 62 6c 79 20 62 79 20 |en, prob|ably by |
|00005730| 54 65 63 68 4d 61 69 6c | 2e 7e 32 25 22 0d 20 20 |TechMail|.~2%".  |
|00005740| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 70 61 |        |      pa|
|00005750| 74 68 6e 61 6d 65 29 0d | 20 20 20 20 20 20 20 20 |thname).|        |
|00005760| 28 72 65 74 75 72 6e 2d | 66 72 6f 6d 20 73 6f 72 |(return-|from sor|
|00005770| 74 2d 6d 61 69 6c 2d 66 | 72 6f 6d 2d 6d 65 6e 75 |t-mail-f|rom-menu|
|00005780| 20 6e 69 6c 29 29 0d 20 | 20 20 20 20 20 28 77 69 | nil)). |     (wi|
|00005790| 74 68 2d 6f 70 65 6e 2d | 73 6f 72 74 6d 61 69 6c |th-open-|sortmail|
|000057a0| 2d 66 69 6c 65 20 28 2a | 73 6f 72 74 6d 61 69 6c |-file (*|sortmail|
|000057b0| 2d 69 6e 70 75 74 2d 66 | 69 6c 65 2d 72 65 66 6e |-input-f|ile-refn|
|000057c0| 75 6d 2a 20 70 61 74 68 | 6e 61 6d 65 20 3a 69 6e |um* path|name :in|
|000057d0| 70 75 74 29 0d 20 20 20 | 20 20 20 20 20 28 73 68 |put).   |     (sh|
|000057e0| 6f 77 2d 62 75 73 79 2d | 6d 65 73 73 61 67 65 20 |ow-busy-|message |
|000057f0| 22 50 61 72 73 69 6e 67 | 20 6d 61 69 6c 20 66 69 |"Parsing| mail fi|
|00005800| 6c 65 20 7e 41 22 20 70 | 61 74 68 6e 61 6d 65 29 |le ~A" p|athname)|
|00005810| 0d 20 20 20 20 20 20 20 | 20 28 6c 65 74 20 28 28 |.       | (let ((|
|00005820| 6d 61 69 6c 20 28 70 61 | 72 73 65 2d 6d 61 69 6c |mail (pa|rse-mail|
|00005830| 2d 66 69 6c 65 29 29 29 | 0d 20 20 20 20 20 20 20 |-file)))|.       |
|00005840| 20 20 20 28 75 6e 6c 65 | 73 73 20 6d 61 69 6c 20 |   (unle|ss mail |
|00005850| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 28 66 6f |.       |     (fo|
|00005860| 72 6d 61 74 20 2a 65 72 | 72 6f 72 2d 6f 75 74 70 |rmat *er|ror-outp|
|00005870| 75 74 2a 20 22 7e 32 26 | 4d 61 69 6c 20 66 69 6c |ut* "~2&|Mail fil|
|00005880| 65 20 7e 41 20 69 73 20 | 65 6d 70 74 79 2e 7e 32 |e ~A is |empty.~2|
|00005890| 25 22 20 70 61 74 68 6e | 61 6d 65 29 0d 20 20 20 |%" pathn|ame).   |
|000058a0| 20 20 20 20 20 20 20 20 | 20 28 72 65 74 75 72 6e |        | (return|
|000058b0| 2d 66 72 6f 6d 20 73 6f | 72 74 2d 6d 61 69 6c 2d |-from so|rt-mail-|
|000058c0| 66 72 6f 6d 2d 6d 65 6e | 75 20 6e 69 6c 29 29 0d |from-men|u nil)).|
|000058d0| 20 20 20 20 20 20 20 20 | 20 20 28 6c 65 74 20 28 |        |  (let (|
|000058e0| 28 68 65 61 64 65 72 2d | 6c 65 6e 67 74 68 20 28 |(header-|length (|
|000058f0| 2d 20 28 63 61 61 72 20 | 6d 61 69 6c 29 20 32 29 |- (caar |mail) 2)|
|00005900| 29 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |)).     |       (|
|00005910| 73 68 6f 77 2d 62 75 73 | 79 2d 6d 65 73 73 61 67 |show-bus|y-messag|
|00005920| 65 20 22 53 6f 72 74 69 | 6e 67 20 6d 61 69 6c 20 |e "Sorti|ng mail |
|00005930| 66 69 6c 65 20 7e 41 22 | 20 70 61 74 68 6e 61 6d |file ~A"| pathnam|
|00005940| 65 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |e).     |       (|
|00005950| 73 65 74 71 20 6d 61 69 | 6c 20 28 73 74 61 62 6c |setq mai|l (stabl|
|00005960| 65 2d 73 6f 72 74 20 6d | 61 69 6c 20 70 72 65 64 |e-sort m|ail pred|
|00005970| 69 63 61 74 65 29 29 0d | 20 20 20 20 20 20 20 20 |icate)).|        |
|00005980| 20 20 20 20 28 73 68 6f | 77 2d 62 75 73 79 2d 6d |    (sho|w-busy-m|
|00005990| 65 73 73 61 67 65 20 22 | 57 72 69 74 69 6e 67 20 |essage "|Writing |
|000059a0| 74 65 6d 70 6f 72 61 72 | 79 20 6d 61 69 6c 20 66 |temporar|y mail f|
|000059b0| 69 6c 65 2e 2e 2e 22 29 | 0d 20 20 20 20 20 20 20 |ile...")|.       |
|000059c0| 20 20 20 20 20 3b 3b 20 | 52 65 77 69 6e 64 20 74 |     ;; |Rewind t|
|000059d0| 68 65 20 69 6e 70 75 74 | 20 66 69 6c 65 20 28 6e |he input| file (n|
|000059e0| 6f 20 23 5f 53 65 74 46 | 50 6f 73 20 67 6c 75 65 |o #_SetF|Pos glue|
|000059f0| 20 69 73 20 64 65 66 69 | 6e 65 64 29 0d 20 20 20 | is defi|ned).   |
|00005a00| 20 20 20 20 20 20 20 20 | 20 28 73 65 74 2d 6d 61 |        | (set-ma|
|00005a10| 69 6c 2d 66 69 6c 65 2d | 70 6f 73 69 74 69 6f 6e |il-file-|position|
|00005a20| 20 2a 73 6f 72 74 6d 61 | 69 6c 2d 69 6e 70 75 74 | *sortma|il-input|
|00005a30| 2d 66 69 6c 65 2d 72 65 | 66 6e 75 6d 2a 20 30 29 |-file-re|fnum* 0)|
|00005a40| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 3b 20 |.       |     ;; |
|00005a50| 57 72 69 74 65 20 74 68 | 65 20 6d 65 73 73 61 67 |Write th|e messag|
|00005a60| 65 73 20 74 6f 20 61 20 | 74 65 6d 70 6f 72 61 72 |es to a |temporar|
|00005a70| 79 20 66 69 6c 65 20 69 | 6e 20 61 20 64 69 66 66 |y file i|n a diff|
|00005a80| 65 72 65 6e 74 20 6f 72 | 64 65 72 0d 20 20 20 20 |erent or|der.    |
|00005a90| 20 20 20 20 20 20 20 20 | 28 63 72 65 61 74 65 2d |        |(create-|
|00005aa0| 66 69 6c 65 20 74 65 6d | 70 20 3a 6d 61 63 2d 66 |file tem|p :mac-f|
|00005ab0| 69 6c 65 2d 74 79 70 65 | 20 28 6d 61 63 2d 66 69 |ile-type| (mac-fi|
|00005ac0| 6c 65 2d 74 79 70 65 20 | 70 61 74 68 6e 61 6d 65 |le-type |pathname|
|00005ad0| 29 0d 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |).      |        |
|00005ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005af0| 3a 6d 61 63 2d 66 69 6c | 65 2d 63 72 65 61 74 6f |:mac-fil|e-creato|
|00005b00| 72 20 28 6d 61 63 2d 66 | 69 6c 65 2d 63 72 65 61 |r (mac-f|ile-crea|
|00005b10| 74 6f 72 20 70 61 74 68 | 6e 61 6d 65 29 0d 20 20 |tor path|name).  |
|00005b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00005b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 3a 69 66 2d |        |    :if-|
|00005b40| 65 78 69 73 74 73 20 3a | 6f 76 65 72 77 72 69 74 |exists :|overwrit|
|00005b50| 65 29 0d 20 20 20 20 20 | 20 20 20 20 20 20 20 28 |e).     |       (|
|00005b60| 77 69 74 68 2d 6f 70 65 | 6e 2d 73 6f 72 74 6d 61 |with-ope|n-sortma|
|00005b70| 69 6c 2d 66 69 6c 65 20 | 28 6f 75 74 70 75 74 2d |il-file |(output-|
|00005b80| 72 65 66 6e 75 6d 20 74 | 65 6d 70 20 3a 6f 75 74 |refnum t|emp :out|
|00005b90| 70 75 74 29 0d 20 20 20 | 20 20 20 20 20 20 20 20 |put).   |        |
|00005ba0| 20 20 20 28 77 69 74 68 | 2d 73 6f 72 74 6d 61 69 |   (with|-sortmai|
|00005bb0| 6c 2d 62 75 66 66 65 72 | 0d 20 20 20 20 20 20 20 |l-buffer|.       |
|00005bc0| 20 20 20 20 20 20 20 20 | 20 28 77 72 69 74 65 2d |        | (write-|
|00005bd0| 6d 61 69 6c 2d 66 69 6c | 65 2d 70 6f 72 74 69 6f |mail-fil|e-portio|
|00005be0| 6e 20 6f 75 74 70 75 74 | 2d 72 65 66 6e 75 6d 20 |n output|-refnum |
|00005bf0| 30 20 68 65 61 64 65 72 | 2d 6c 65 6e 67 74 68 29 |0 header|-length)|
|00005c00| 0d 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|00005c10| 20 28 6c 6f 6f 70 20 66 | 6f 72 20 28 70 6f 73 69 | (loop f|or (posi|
|00005c20| 74 69 6f 6e 20 73 69 7a | 65 29 20 69 6e 20 6d 61 |tion siz|e) in ma|
|00005c30| 69 6c 20 64 6f 0d 20 20 | 20 20 20 20 20 20 20 20 |il do.  |        |
|00005c40| 20 20 20 20 20 20 20 20 | 28 77 72 69 74 65 2d 6d |        |(write-m|
|00005c50| 61 69 6c 2d 66 69 6c 65 | 2d 63 68 61 72 61 63 74 |ail-file|-charact|
|00005c60| 65 72 73 20 6f 75 74 70 | 75 74 2d 72 65 66 6e 75 |ers outp|ut-refnu|
|00005c70| 6d 20 23 5c 50 61 67 65 | 20 23 5c 4e 65 77 6c 69 |m #\Page| #\Newli|
|00005c80| 6e 65 29 0d 20 20 20 20 | 20 20 20 20 20 20 20 20 |ne).    |        |
|00005c90| 20 20 20 20 20 20 28 77 | 72 69 74 65 2d 6d 61 69 |      (w|rite-mai|
|00005ca0| 6c 2d 66 69 6c 65 2d 70 | 6f 72 74 69 6f 6e 20 6f |l-file-p|ortion o|
|00005cb0| 75 74 70 75 74 2d 72 65 | 66 6e 75 6d 20 70 6f 73 |utput-re|fnum pos|
|00005cc0| 69 74 69 6f 6e 20 73 69 | 7a 65 29 29 29 29 29 29 |ition si|ze))))))|
|00005cd0| 29 0d 20 20 20 20 20 20 | 3b 3b 20 52 65 70 6c 61 |).      |;; Repla|
|00005ce0| 63 65 20 74 68 65 20 6f | 72 69 67 69 6e 61 6c 20 |ce the o|riginal |
|00005cf0| 66 69 6c 65 20 77 69 74 | 68 20 74 68 65 20 74 65 |file wit|h the te|
|00005d00| 6d 70 6f 72 61 72 79 20 | 66 69 6c 65 0d 20 20 20 |mporary |file.   |
|00005d10| 20 20 20 28 73 68 6f 77 | 2d 62 75 73 79 2d 6d 65 |   (show|-busy-me|
|00005d20| 73 73 61 67 65 20 22 52 | 65 70 6c 61 63 69 6e 67 |ssage "R|eplacing|
|00005d30| 20 6d 61 69 6c 20 66 69 | 6c 65 20 7e 41 22 20 70 | mail fi|le ~A" p|
|00005d40| 61 74 68 6e 61 6d 65 29 | 0d 20 20 20 20 20 20 28 |athname)|.      (|
|00005d50| 72 65 6e 61 6d 65 2d 66 | 69 6c 65 20 70 61 74 68 |rename-f|ile path|
|00005d60| 6e 61 6d 65 20 6f 6c 64 | 20 3a 69 66 2d 65 78 69 |name old| :if-exi|
|00005d70| 73 74 73 20 3a 6f 76 65 | 72 77 72 69 74 65 29 0d |sts :ove|rwrite).|
|00005d80| 20 20 20 20 20 20 28 72 | 65 6e 61 6d 65 2d 66 69 |      (r|ename-fi|
|00005d90| 6c 65 20 74 65 6d 70 20 | 70 61 74 68 6e 61 6d 65 |le temp |pathname|
|00005da0| 29 0d 20 20 20 20 20 20 | 28 64 65 6c 65 74 65 2d |).      |(delete-|
|00005db0| 66 69 6c 65 20 6f 6c 64 | 29 29 29 29 0d 0d 3b 3b |file old|))))..;;|
|00005dc0| 3b 2d 2d 2d 20 53 68 6f | 75 6c 64 20 68 61 76 65 |;--- Sho|uld have|
|00005dd0| 20 6c 6f 6f 6b 61 68 65 | 61 64 20 74 6f 20 64 65 | lookahe|ad to de|
|00005de0| 63 69 64 65 20 68 6f 77 | 20 6d 75 63 68 20 74 6f |cide how| much to|
|00005df0| 20 70 72 65 66 65 74 63 | 68 20 69 6e 73 74 65 61 | prefetc|h instea|
|00005e00| 64 20 6f 66 20 66 69 6c | 6c 69 6e 67 20 77 68 6f |d of fil|ling who|
|00005e10| 6c 65 20 62 75 66 66 65 | 72 0d 28 64 65 66 75 6e |le buffe|r.(defun|
|00005e20| 20 77 72 69 74 65 2d 6d | 61 69 6c 2d 66 69 6c 65 | write-m|ail-file|
|00005e30| 2d 70 6f 72 74 69 6f 6e | 20 28 72 65 66 6e 75 6d |-portion| (refnum|
|00005e40| 20 70 6f 73 69 74 69 6f | 6e 20 73 69 7a 65 29 0d | positio|n size).|
|00005e50| 20 20 28 6c 6f 6f 70 20 | 77 68 69 6c 65 20 28 3e |  (loop |while (>|
|00005e60| 20 73 69 7a 65 20 30 29 | 0d 20 20 20 20 20 20 20 | size 0)|.       |
|00005e70| 20 61 73 20 69 6e 70 75 | 74 2d 70 6f 73 69 74 69 | as inpu|t-positi|
|00005e80| 6f 6e 20 3d 20 2a 73 6f | 72 74 6d 61 69 6c 2d 62 |on = *so|rtmail-b|
|00005e90| 75 66 66 65 72 2d 66 69 | 6c 65 2d 70 6f 73 69 74 |uffer-fi|le-posit|
|00005ea0| 69 6f 6e 2a 0d 20 20 20 | 20 20 20 20 20 61 73 20 |ion*.   |     as |
|00005eb0| 69 6e 70 75 74 2d 73 69 | 7a 65 20 3d 20 2a 73 6f |input-si|ze = *so|
|00005ec0| 72 74 6d 61 69 6c 2d 62 | 75 66 66 65 72 2d 66 69 |rtmail-b|uffer-fi|
|00005ed0| 6c 6c 2d 70 6f 69 6e 74 | 65 72 2a 20 64 6f 0d 20 |ll-point|er* do. |
|00005ee0| 20 20 20 28 75 6e 6c 65 | 73 73 20 28 3c 3d 20 69 |   (unle|ss (<= i|
|00005ef0| 6e 70 75 74 2d 70 6f 73 | 69 74 69 6f 6e 20 70 6f |nput-pos|ition po|
|00005f00| 73 69 74 69 6f 6e 20 28 | 2b 20 69 6e 70 75 74 2d |sition (|+ input-|
|00005f10| 70 6f 73 69 74 69 6f 6e | 20 69 6e 70 75 74 2d 73 |position| input-s|
|00005f20| 69 7a 65 20 2d 31 29 29 | 0d 20 20 20 20 20 20 28 |ize -1))|.      (|
|00005f30| 73 65 74 2d 6d 61 69 6c | 2d 66 69 6c 65 2d 70 6f |set-mail|-file-po|
|00005f40| 73 69 74 69 6f 6e 20 2a | 73 6f 72 74 6d 61 69 6c |sition *|sortmail|
|00005f50| 2d 69 6e 70 75 74 2d 66 | 69 6c 65 2d 72 65 66 6e |-input-f|ile-refn|
|00005f60| 75 6d 2a 20 70 6f 73 69 | 74 69 6f 6e 29 0d 20 20 |um* posi|tion).  |
|00005f70| 20 20 20 20 28 6e 65 78 | 74 2d 73 6f 72 74 6d 61 |    (nex|t-sortma|
|00005f80| 69 6c 2d 62 75 66 66 65 | 72 29 0d 20 20 20 20 20 |il-buffe|r).     |
|00005f90| 20 28 73 65 74 71 20 69 | 6e 70 75 74 2d 70 6f 73 | (setq i|nput-pos|
|00005fa0| 69 74 69 6f 6e 20 2a 73 | 6f 72 74 6d 61 69 6c 2d |ition *s|ortmail-|
|00005fb0| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 70 6f 73 69 |buffer-f|ile-posi|
|00005fc0| 74 69 6f 6e 2a 0d 20 20 | 20 20 20 20 20 20 20 20 |tion*.  |        |
|00005fd0| 20 20 69 6e 70 75 74 2d | 73 69 7a 65 20 2a 73 6f |  input-|size *so|
|00005fe0| 72 74 6d 61 69 6c 2d 62 | 75 66 66 65 72 2d 66 69 |rtmail-b|uffer-fi|
|00005ff0| 6c 6c 2d 70 6f 69 6e 74 | 65 72 2a 29 29 0d 20 20 |ll-point|er*)).  |
|00006000| 20 20 28 6c 65 74 20 28 | 28 74 72 61 6e 73 66 65 |  (let (|(transfe|
|00006010| 72 2d 73 69 7a 65 20 28 | 6d 69 6e 20 28 2d 20 28 |r-size (|min (- (|
|00006020| 2b 20 69 6e 70 75 74 2d | 70 6f 73 69 74 69 6f 6e |+ input-|position|
|00006030| 20 69 6e 70 75 74 2d 73 | 69 7a 65 29 20 70 6f 73 | input-s|ize) pos|
|00006040| 69 74 69 6f 6e 29 20 73 | 69 7a 65 29 29 29 0d 20 |ition) s|ize))). |
|00006050| 20 20 20 20 20 28 25 73 | 74 61 63 6b 2d 62 6c 6f |     (%s|tack-blo|
|00006060| 63 6b 20 28 28 63 6f 75 | 6e 74 20 34 29 29 0d 20 |ck ((cou|nt 4)). |
|00006070| 20 20 20 20 20 20 20 28 | 25 70 75 74 2d 6c 6f 6e |       (|%put-lon|
|00006080| 67 20 63 6f 75 6e 74 20 | 74 72 61 6e 73 66 65 72 |g count |transfer|
|00006090| 2d 73 69 7a 65 29 0d 20 | 20 20 20 20 20 20 20 28 |-size). |       (|
|000060a0| 6c 65 74 20 28 28 65 72 | 72 20 28 66 73 77 72 69 |let ((er|r (fswri|
|000060b0| 74 65 2d 74 68 61 74 2d | 77 6f 72 6b 73 20 72 65 |te-that-|works re|
|000060c0| 66 6e 75 6d 20 63 6f 75 | 6e 74 20 28 25 69 6e 63 |fnum cou|nt (%inc|
|000060d0| 2d 70 74 72 20 2a 73 6f | 72 74 6d 61 69 6c 2d 62 |-ptr *so|rtmail-b|
|000060e0| 75 66 66 65 72 2d 70 74 | 72 2a 0d 20 20 20 20 20 |uffer-pt|r*.     |
|000060f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00006100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00006110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00006120| 20 20 20 20 20 20 20 20 | 20 28 2d 20 70 6f 73 69 |        | (- posi|
|00006130| 74 69 6f 6e 20 69 6e 70 | 75 74 2d 70 6f 73 69 74 |tion inp|ut-posit|
|00006140| 69 6f 6e 29 29 29 29 29 | 0d 20 20 20 20 20 20 20 |ion)))))|.       |
|00006150| 20 20 20 28 75 6e 6c 65 | 73 73 20 28 7a 65 72 6f |   (unle|ss (zero|
|00006160| 70 20 65 72 72 29 20 28 | 65 72 72 6f 72 20 22 4f |p err) (|error "O|
|00006170| 53 20 65 72 72 6f 72 20 | 7e 44 20 77 68 69 6c 65 |S error |~D while|
|00006180| 20 77 72 69 74 69 6e 67 | 20 66 69 6c 65 2e 22 20 | writing| file." |
|00006190| 65 72 72 29 29 29 29 0d | 20 20 20 20 20 20 28 69 |err)))).|      (i|
|000061a0| 6e 63 66 20 70 6f 73 69 | 74 69 6f 6e 20 74 72 61 |ncf posi|tion tra|
|000061b0| 6e 73 66 65 72 2d 73 69 | 7a 65 29 0d 20 20 20 20 |nsfer-si|ze).    |
|000061c0| 20 20 28 64 65 63 66 20 | 73 69 7a 65 20 74 72 61 |  (decf |size tra|
|000061d0| 6e 73 66 65 72 2d 73 69 | 7a 65 29 29 29 29 0d 0d |nsfer-si|ze))))..|
|000061e0| 3b 3b 3b 20 57 72 69 74 | 65 20 75 70 20 74 6f 20 |;;; Writ|e up to |
|000061f0| 66 6f 75 72 20 63 68 61 | 72 61 63 74 65 72 73 0d |four cha|racters.|
|00006200| 28 64 65 66 75 6e 20 77 | 72 69 74 65 2d 6d 61 69 |(defun w|rite-mai|
|00006210| 6c 2d 66 69 6c 65 2d 63 | 68 61 72 61 63 74 65 72 |l-file-c|haracter|
|00006220| 73 20 28 72 65 66 6e 75 | 6d 20 26 72 65 73 74 20 |s (refnu|m &rest |
|00006230| 63 68 61 72 61 63 74 65 | 72 73 29 0d 20 20 28 25 |characte|rs).  (%|
|00006240| 73 74 61 63 6b 2d 62 6c | 6f 63 6b 20 28 28 62 75 |stack-bl|ock ((bu|
|00006250| 66 66 65 72 20 34 29 20 | 28 63 6f 75 6e 74 20 34 |ffer 4) |(count 4|
|00006260| 29 29 0d 20 20 20 20 28 | 6c 6f 6f 70 20 66 6f 72 |)).    (|loop for|
|00006270| 20 63 68 61 72 20 69 6e | 20 63 68 61 72 61 63 74 | char in| charact|
|00006280| 65 72 73 20 61 6e 64 20 | 69 20 66 72 6f 6d 20 30 |ers and |i from 0|
|00006290| 20 64 6f 0d 20 20 20 20 | 20 20 28 25 70 75 74 2d | do.    |  (%put-|
|000062a0| 62 79 74 65 20 62 75 66 | 66 65 72 20 28 63 68 61 |byte buf|fer (cha|
|000062b0| 72 2d 63 6f 64 65 20 63 | 68 61 72 29 20 69 29 29 |r-code c|har) i))|
|000062c0| 0d 20 20 20 20 28 25 70 | 75 74 2d 6c 6f 6e 67 20 |.    (%p|ut-long |
|000062d0| 63 6f 75 6e 74 20 28 6c | 65 6e 67 74 68 20 63 68 |count (l|ength ch|
|000062e0| 61 72 61 63 74 65 72 73 | 29 29 0d 20 20 20 20 28 |aracters|)).    (|
|000062f0| 6c 65 74 20 28 28 65 72 | 72 20 28 66 73 77 72 69 |let ((er|r (fswri|
|00006300| 74 65 2d 74 68 61 74 2d | 77 6f 72 6b 73 20 72 65 |te-that-|works re|
|00006310| 66 6e 75 6d 20 63 6f 75 | 6e 74 20 62 75 66 66 65 |fnum cou|nt buffe|
|00006320| 72 29 29 29 0d 20 20 20 | 20 20 20 28 75 6e 6c 65 |r))).   |   (unle|
|00006330| 73 73 20 28 7a 65 72 6f | 70 20 65 72 72 29 20 28 |ss (zero|p err) (|
|00006340| 65 72 72 6f 72 20 22 4f | 53 20 65 72 72 6f 72 20 |error "O|S error |
|00006350| 7e 44 20 77 68 69 6c 65 | 20 77 72 69 74 69 6e 67 |~D while| writing|
|00006360| 20 66 69 6c 65 2e 22 20 | 65 72 72 29 29 29 29 29 | file." |err)))))|
|00006370| 0d 0d 3b 3b 3b 20 23 5f | 46 53 57 72 69 74 65 20 |..;;; #_|FSWrite |
|00006380| 67 6c 75 65 20 69 73 20 | 62 72 6f 6b 65 6e 2c 20 |glue is |broken, |
|00006390| 74 68 69 73 20 76 65 72 | 73 69 6f 6e 20 77 6f 72 |this ver|sion wor|
|000063a0| 6b 73 0d 28 64 65 66 75 | 6e 20 66 73 77 72 69 74 |ks.(defu|n fswrit|
|000063b0| 65 2d 74 68 61 74 2d 77 | 6f 72 6b 73 20 28 72 65 |e-that-w|orks (re|
|000063c0| 66 6e 75 6d 20 63 6f 75 | 6e 74 50 20 62 75 66 66 |fnum cou|ntP buff|
|000063d0| 65 72 29 0d 20 20 28 72 | 6c 65 74 20 28 28 70 62 |er).  (r|let ((pb|
|000063e0| 20 3a 68 70 61 72 61 6d | 62 6c 6f 63 6b 72 65 63 | :hparam|blockrec|
|000063f0| 29 29 0d 20 20 20 20 28 | 73 65 74 66 20 28 72 72 |)).    (|setf (rr|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.